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MODULE AEDSSETACL ( 


LAM GYAGE , (OL 13536) 


ADDRESSING _MODE (EXTERNAL = GENERAL) 


BEGIN 
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!@ COPYRIGHT (c) 1978, 1980, 1982, 1984 

'@ DIGITAL i i CORPORATION, MAYNARD. MASSACHUSETTS. 

i: ALL RIGHTS RESER 

ie ints SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 

'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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FACILITY: SET utility 
i ABSTRACT: 
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This module contains all the routines necessa 

DCL commands SET FILE/ACL. SET DIRECTORY/ACL, 

and SET ACL with the oornke Une of the /EDIT q 
i ENVIRONMENT: 


VAX/VMS operating system, user mode utilities. 
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AUTHOR: L. Mark Pilant CREATION DATE: 4-May-1983 9:20 
i MODIFIED BY: 
v03-019 Lapecee t Mark Pilant, 6-Aug-1984 15:02 
ange the location of the code that determines if the karget 
fite a directory file to correct a bua where the defaul 
eat ion was being cleared. 


v03-018 LMP0283 L. Mark Pilant, 25-Jul-1984 12:40 
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DSSETACL -$ep-1984 00:02: AX-11 Bliss-32 V4.0-74 P 
vOe-000 iS$eo-198% 90:08:40 ACLEDT’ SREISETACL 830; ae of 

Make sure the default yl type is a file. 

v03-017 LMP0260 i. Pilant 27-Jun-1984 9:11 
Add support for ie ODEFAULS gualifier. 

v03-016 rg 4-Jun-1984 10:4 

ix th or handling. e tant “ACL $o chet’ 358 Non NOROREACE 

and SSS_ACLEMPTY are — turned into SS 


v03-015 LMPO2GS Len § 1-May-1984 16:02 
Fix a bug intrudssed by CaP 236 that caused the wrong 
item code to be used. 

V03-014 LMP0238 L. Pilant 19-Apr-1984 13:35 
Use the size of the mete bolas” twiddled, Me rpossible. 

vO3-013 LMP0236 L. Mark Pilant 18-Apr-1984 13:25 


Correct a bug that caused an ACCVIO to be returned from the 
SCHANGE _ ACL wyesee service when an attempt was made to lock 
a file's ACL for il 


v03-012 LMP0230 L. Mark Pilan 16-Apr-1984 10:45 
Track interface Ranaet to SCHANGE WACL systen service. 


v03-011 LMP0226 L. Mark Pilant 9-Apr-1984 9:32 
Make sure all ACEs to be nodi tied exist and are in the 
correct order (if more than one 


v03-010 LMP0224 Mark Pilant, 7-Apr-1984 13:50 
Use enhanced Libstile. scan features for sticxyness. 


v03-009 Lapeess L. Mark Pilant, 6-Apr-1984 12:49 
y be, the correct amount of storage for the $ HANGE ACL 
oc ock. 


v03-008 LMP0213 Mark Pilant 24 —farnt ges | ye 23 
Add support for Neck tan and unlocking the object's A 
Also, modify it so that the DCL commands SET ACL and Siow 
ACL call the same image. 


v03-007 LMP0210 Mark Pilan 23-Mar-1984 14:33 
Change the smoo iF ¥ aul t /REPLACE. 
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sponge e code to use SCHANGE wack instead of the ACP to do 
the ACL twiddling. 


v03-003 LMP0168 Mark Pila 11-Nov-1983 10:58 
Make use of the HiDeN aCe pe illegal. 
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1 v03-006 LMP0198 Rock 28-Feb-1984 12:05 
1 en the object oo ted. 8 x /LIKE qualifier for 

' shared read access. 

1 v03-005 LMP0185 Mark Pilant, 4-Feb-1984 12:15 
: Add support for Bp ACLs. 

: v03-004 LmPorg 1 L. Mark Pilant 15-Dec-1983 9:54 
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s 115 115 1! v03-002 LMP0137 L. Mark Pilant, Vecua, 1903 9:36 
r 118 1146 #1! Add support for the qualifiers: /BEFORE, /SINCE, 

: 13 4 ! } and /CREATED. 

: 18 119 1! v03-001 LMP0126 . Mark Pilant, 55-Jul-1983 11:00 
s 120 120 1! correctly use a ‘sticky’ input file-spec. Also, handle 

3 : 1 ; 1 ! errors while processing multiple files correctly. 

a ¥ : 1 4 1 jee 

: 126 124 #1 

s 29 125 1 LIBRARY ‘SYSS$LIBRARY:LIB'; 

>; 126 126 1 LIBRARY 'SYSSLIBRARY: TPAMAC'; 
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! Routines contained within this module. 
FORWARD ROUTINE 


Shores FILE Act th iff 
one é ‘ ae upon the specifie 


Copy a object's ACL 
gop? 991 
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! Define common error message codes. 


SSHR_MSGDEF (SET, 119, LOCAL, 
(SYNTAX, SEVERE), 


ERROR) 
SEOUT, ERRORS, 
DERR, SEVERE) 
TEERR, SEVERES 


): 
! Define necessary macros. 


MACRO 
SIGNAL 


G) 
IN 
ye ROUTINE LIBSSIGNAL 


I 
NOT ARG AN 
(.WORST_ERROR AND STSSM_SEVERITY) LSS 
(ARG AND STSSM_SEVERITY) THEN WORST_ERROR = ore OR 


MACRO 
ALLOCATE (SIZE, ADDRESS) = 

ROUTINE LIBSGET_VM; 

yA. STATUS; 

§ = LIBSGET_VM (ZREF (SIZE), ADDRES 

STATUS THEN CHSFILL (0, SIZE. .ADDRE 


$) 
$$5; 


! Various needed flags. 


ce me ee em a a ee ee a ee ed ad ad dd od od 


QUAL _AF TER = 0, 9. 1 © i ! /AFTER qualifier seen 
QUAL _DELETE =0,1,1,02%, ! /DELETE quel tier seen 
QUAL _LIKE = 0, ¢° 1, 0 2, ' /LIKE qualifier seen 
QUAL _LOG = 0, 5, 1,02, ! /LOG qualifier seen 


Main processin cout ine 


@ scanning error 
Signal general file error 


GNAL CARG ZIF SLENGTH-1 GTR O XTHEN, %REMAINING %F1); 


$M_INHIB_MSG; 


SEDSRETACL 


PMONMINONONY 2 2 


UEWN 20 OONOUES WN “OVO ONOUS WN 


SeBoae 


ue a a as a to a 5 


SRVEARRANLSSSLESEAVZ 


SOOO OCOOSOSOOSOSOSSSSOSOOOSOSOSOOSSOSOOOOCCOooooooooooooooooooooo0oo 


Ot 4 a a a a 8 te a a tt 


DOVAAR WV SSR NEAR OD NE CrO 


ee ee ee ee ee eee SS SY 
. 


~O 


SOWONOA UE WN" OOONOULSWIN Oo 


MACRO 


LITERAL 


OWN 


QUAL REPLACE = 
QUAL_NEW z 
QUAL_DEFAULT = 
DIRECTORY = 
IN_ELLIPSE = 
ST DEV CMD = 
SET-FILE CMD = 
SET-DIR_CMD = 
SET_ACL_CMD = 

definition for 


ACEQ_L_FLINK = 0, o: 3: p z, H 
ACEQ_L_BLINK = 4, 0, 32, 0%, : 
ACEQ_T_ACE = 8, , 02; 


ACEQ_C_LENGTH 


KID * 
TYPE, 
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! Semi-permanent storage. 


: SBBLOCK C2], } 
: SBBLOCK CACLSS_RLOCK vcd 
: $BBLOCK COSC$C_S_BLNI,— 


K 13 
-Sep- AX-11 Bliss-32 V4.0-74 P 
12: sept 900g ee ee ebdesseeatt 8534 age 33 
° ¢: 1, 6 i. A. uraual! yalitier seen 
. 6, 1" | i IDEFA if marie seen 
° ° R {, i jerger.t sa é{rectery file 
11, 1,0%, i In elli 7 process! ng 
» Wee te :. i att DEV ce ce 
» lee Ve ° i SET FIL ——s 
» Wie te © Be i SET DIRECTORY. command 
ta ts © oe i SET ACL command 
the old and new ACE queues. 


Forward Link 
Backward Link 
! Start of the actual ACE 


8; ! Length of the overhead area 


Needed flags 
orst re encountered 
abje nail id for ACL lock 


t code 
“BB ect A descriptor 


— 
° 
o 
+ 
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: SFAB_DECL, ! Output ‘al ect F 

: SNA E ! Output object NAMe block 

: $BBLOCK CNAMSC_MAXRSS), ! Expanded name string 
! Resultant name string 


: $BBLOCK 
: SNAM_D 


' 
: SBBLOCK CACLS$S_RLOCK ACL, 
: SBBLOCK COSCSC_S_BLNI, 
: SFAB L 


NAMSC_ _MAXRSS f 
be Related object spec 
i fn ut ob t 
context used by Senne ACL 

Lock=- L lock 
! Source object t type co A! 
ect descr 


' Source ‘ok ect F 


DECL Source object NAMe block 
: SBBLOCK [NAMSC -WAXRSS1, ! Expanded name string 
: SBBLOCK NAMSC OMA RSSJ, i pnosut Sent name string 
Ngee object c one nel 
i ACL context for CHANGE _ACL 
: SBBLOCK CDSC$C_S_BLNI, ' Source device desc 
: SBBLOCK atttate BLN ' Source file ‘ie desc 
: SBBLOCK CFIBSC~LENGTHS i Source fi file FIB 
: BLOCKVECTOR fz. slatals iteR matey ! tis attribute descr 
: LOCK CDSC om CLI 


: SBBLOCK Ene Ss $ BLN, 
: raat 


: Hat oek pstsc. S_BLNI, 


! Error posit 
ACLSS ~READACLI, 


REF S$BBL Pointer to AC gueue y 
! Text ACE descriptor 

AE text storage 
' Old ACE queue head 


Lock CAcEG_¢ LENGTH, 


<> 


agp TACL 1SBen-1984 90:08:40 yards Ltage32 4.0276 rage 6 


; 246 61 1 NEW_ACE HEAD : SBBLOCK CACEQ_C_LENGTH], ! New « queue head 

3: 26 4 piR-GRoge ! Group of UIC format directory 
; 4 4 DIRIMEMBER; i Member of UIC format directory 
3 re] 45 1 EXTERNAL 

; 246 ‘3 1 SETS_NOHIDDEN ! No HIDDEN ACEs allowed 

: 26 47 1 SET$-OBJLOCKED, ! Object locked by another user 
3; 246 48 1 SETS_IVORDER ! Incorrect ordering of ACEs to be modified 
3 250 49 1 SETS-NOSUCHACE, i Specified ACE doesn't exist 

: 1 : SETS_MODIFIED; ! Object modified message 

H : ; 1 EXTERNAL eoyrine 

3 4 1 CLISGET_ VALUE, ! Get quel tt iee value 

: 255 28 1 CLISPRESENT, ! See if qualifier present 

3 28 5 ! LIBSFID_TO_NAME, ! Translate FID to file-spec 

3 29 28 LIBSFILE_SCAN, ! Search wildcard file spec 

; 258 57 1 LIBSQUAL_FILE_MATCH, ! Check for match 

; 259 58 1 LIBSQUAL _FILE_PARSE, ! Set match context 

3 r¢ 8 2B ! LIBSTPARSE; ! General purpose parser 

3 6 8 ] : ! TPARSE table for UIC format directory names. 

; re 0 es ! SINIT_STATE (DIR_STATE, DIR_KEYS); 

; 66 § 65 1 SSTATE (,(TPAS_OCTAL,,,,DIR_GROUP)); 

3 67 968 1 SSTA ols Eee 

3 268 0267 1 $STATE (.(TPAS_OCTAL,,.,DIR_MEMBER)); 
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GLOBAL ROUTINE SET_ACL = 


i 
FUNCTIONAL DESCRIPTION: 
This routine is the main routine. arses the command Line to 


i 
i 
i 
cocerarne what modifications to tne” bb ect (or objects) ACL are to 
ur. 
i 

ie 


BEGIN 


BUILTIN 
INSQUE ; 


LOCAL 
yy CONTEXT, ! LIBSFILE SCAN context storage 
D_BESC : SBBLOCK CDSC$C_S_BLNI, ! BCL command descr 
cme TUE ocal jeuntes return status 
ion STafuS : VECTOR C4, WORD]; 576 status block 
! Initialize local storage. 


CHSFILL (¢ 


0: 
OBJECT_TYPE = 0; 


WORST_ER NORMA 
LAS 4 = DSCSK_CLASS_D; 


C 
ey = DSC$K CLASS_B; 
($6 CLASS) = DSCSk LAS Se 6; 
ASSI = DS LASS_D; 
INTER = Wi _FIB; 


mi RLINKD = bi. ACE_HEAD ACEQ_ 
= OL HEAD 
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wa cry 
‘pol 
amMoomMmon—-—-s 
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ACEQ- 
~HEADCACEQ_L_FLINK] = NEW"ACE HEADCACEQ— 
= NEW ACE-HEADCACEQ-L~ PLINC); 


! Determine what DCL command was used to invoke this image. Also, set the 
i appropriate default object type code. 


cL Ieeer VALUE (SDESCRIPTOR ( soctuee CMD pest C); 
F CHSEGL (.CMD_DESCCDSC$W_LENGTH), .CMD_DESCCDSCSA_POINTER], 


: ' Null queue 
ay AC 


3 ' Null queue 


voe=000 ieSeerggs 0:08:92 RACH PLfegsBa tt 850t ne 


BEGIN 
! Determine the characteristics of the source object. 


; 5 BINU (.CMD_DESCCDSC$W_LENGTH], ZCHARCOUNT ("FILE’)), UPLIT ("FILE"), 
; THEN 

3 BEGIN 

3 FLAGSCSET_FILE_CMD) = 1; 

; 9 OBJECT TYPE = ACL SC FILE; 

: SOBJECT_TYPE = ACL t FILE; 

: : § END; 

; IF CHSEGL (.CMD DESCCDSCSu LENGTH], CHD DESCCDSCSA POINTER] : 

5 5 RINU ~CEOMD. DESCEDS CS ENGTH SOUNT ('DIRECTORY')), UPLIT (*DIRECTORY"), 
; 8 $ THEN 

; 340 9 8 BEGIN 

: 341 FLAGSCSET DIR_CMD) = eli 

; ; 40 OBJECT TYPE ="ACL$C_FILE; 

; 41 SOBJECT. T YPE = ACLST_FILE; 

3 : 4g END; 

3 § 0344 2 IF CHSEQL (.CMD_DESCCDSCS$W_LENGTH], .CMD_DESCCDSCSA_POINTER] 

; 0349 RINU” (. CMD_DES Hag) SC$W_LENGTH], ZCHARCOUNT (*DEVICE')), UPLIT (*DEVICE’), 
: rk} 8 re THEN 

; 350 0 48 BEGIN 

: 351 4 FLAGSCSET_DEV_CMD] = 1; 

; 3¢ 50 OBJECT TYPE ="ACL$C_DEVICE; 

; 35 51 SOBJECT. TYPE = Mitese DEVICE; 

ae 4 be 

; 26 354 2 IF CHSEQL (.CMD -DESCCDSC Su LENGTH], .CMD_DESCCDSC$A_POINTER) 

3 2 335 MINU™ (. CMD_DESC scCb SC$W_LENGTH], ZSCHARCOUNT (*ACL')S, UPLIT ("ACL"), 
; 26 0 3$ THE 

3 58 BEGIN 

: 361 59 3+  FLAGSCSET_ACL_CMD) = 1; 

; ¢ 360 OBJECT TYPE ="ACL$C_FILE 

; 361 SOBJECT_TYPE = ACLSC_FILE; 

3 ee 306 END; 

3 $8 rt: ! Determine what qualifiers are present. 

; 6 FLAGSCQUAL_AFTER] = CLISPRESENT (SDESCRIPTOR ("AFTER"); 

: 369 FLAGSLQUAL DEFAULT) = CLISPRESENT (SDESCRIPTOR ('DEFAULT')); 

: 370 8 FLAGS QUAL DELETED = LISPRESENT SDESCRIPTOR ("DELETE')): 

: 371 FLAGSCQUAL “LOG LISP RESENT (SDESCRIPTOR ('LOG')); 

: 37 0 2 FLAGSCQUAL~ REPLACE CLISPRESENT (SDESCRIPTOR ("REPLACE')); 

3 a 4 FLAGSLQUAL NEW) = CLISPRESENT ($DESCRIPTOR ('NEW')); 

: 375 5g : If the /LIKE qualifier is present, get the source object type and name. If it 
: y if ! is a file, access it for later use. 

; 18 2 IF (FLAGSCQUAL_LIKE] = CLISPRESENT (SDESCRIPTOR (*LIKE'))) 

: 7 THEN 

; 28 

; 7 
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RETURN SETS 
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ISGET_VALUE (SDESCRIPTOR ("LIKE'), SOBJECT_DESC); 


! Attempt to obtain a read lock for the source object. 
M 
F 
F 
H 


IF _ .STATUS EQL SS$ 
RETURN .WORST 


END; 
! Open the source object to get the ACL being copied; if it is a file. 


BEGIN 

. SOBJECT 
BEGIN 
$FAB_INIT 
$NAM_INIT 
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I 
IF NOT .STATUS 
THEN 
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: 498 496 ELSE SDESCRIPTOR (’AFTER')), CLI_ACE_DESC) 
: 8 rs * BEGIN 

3 Sf 238 ACE_DESCCDSC$W_LENGTH] = ACL$S_READACL; ! Reset buffer size 
: 06 P 0500 STATUS = SPARSE_ACL (ACLSTR = CLI_ACE DESC, 

; 50 P 0501 ACLENT = ACE~DESC 

: 504 3 ERRPOS = ERROR_POS); 

; 505 If NOT .STATUS 

3 ] 504 THEN 

; 50 505 4 BEGIN 

: 508 5 6 4 CLI_ACE DESCEDSCSA_POINTER] = ,CLI_ACE DESCLDSCSA POINTER] + .ERROR_POS; 
; 99 3 4 CLI“ACE DESt DSC$W-LENGTH] = .CLI_ACE_BESCCOSCSW_CENGTH) - .ERROR_POS; 
; 54 & 4 SIGNAL TSET$_SYNTAR, 1, CLI_ACE_DESC,~.STATUS, OJ; 

>: $11 509 4 RETURN .WORST_ERROR: 

3 \¢ 510 END; 

: 54 511 IF .ACELACESV_HIDDEN 

: 514 31g THEN 

: 515 513 4 BEGIN 

3 16 514 4 SIGNAL (SETS$_NOHIDDEN); 

; i 0519 4 RETURN .WORST_ERROR; 

: 15 §319 STATUS = ALLOCATE (.ACECACESB_SIZE] + ACEQ_C_LENGTH, ACE_POINTER); 
; 520 0518 IF NOT .STATUS 

: 521 051 THEN 

. < é 0520 4 BEGIN 

; 5 0521 4 SIGNAL (.STATUS); 

: 2 $ 05 g 4 RETURN .WORST_ERROR; 

; 5 6 0524 3 CHSMOVE (.ACECACE$B_SIZEJ, ACE, ACE_POINTERCACEQ_T_ACEJ); 

; 5 0525 4 INSQUE (.ACE_POINTER, (IF .FLAGSCQUAL REPLACEJ 

: 528 05 6 4 THEN .NEW_ACE_READCACEQ_L_BLINK] 

: 529 05 ELSE .OLD"ACE-HEADCACEQ-L-BLINKJ)); 
; 2 : 83 8 END; 

3 3 ¢ Be 9 ! Check for syntax errors on the command. 

; 534 0382 IF .OLD_ACE_HEADCACEQ_L_FLINK] EQLA OLD_ACE_HEADCACEQ_L_FLINK] 
3 335 o33e AND | -NEG_ACE_HEADCACEG_C_FLINK] EQLA NEQ@_ACE_HEADCACEG_C_FLINK] 
; 238 0535 BEGIN 

; 538 0536 IF .FLAGSCQUAL_AFTER] OR “FLAGSCQUAL REPLACE) 

: 539 537 4 OR (.FLAGSCQUAC_NEW) AND NOT .FLAGSCQUAL_LIKE) 

: 540 338 3 THEN 

: 541 539 4 BEGIN 

3 ri} 540 4 SIGNAL (SET$_SYNTAX, 1, SDESCRIPTOR (‘command Line')); 
> 54 541 RETURN .WORST_ERROR; 

3 544 O4¢ ND; 

: 545 54 END 

; 46 544 2 ELSE 

3 545 BEGIN 

; § 346 IF .FLAGSCQUAL_LIKE) 

: 54 THEN 

: 550 348 4 BEGIN 

; 1 549 4 SIGNAL (SET$_SYNTAX, 1, SDESCRIPTOR (‘command Line')); 
; é 550 RETURN .WORST_ERROR;: 

: 551 END; 

: 554 552 END; 


eng 
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! If the object is a file, loop through all the specifications supplied. 
! For any oracs object, Simply dispatch to the eppreeriate routine’ tres here. 


if pOBJECT TYPE EQL ACLSC_FILE 


EGIN 

SFAB INIT (FAB = OBJECT_FAB, 
FAC = <GET, PuT>, 
FOP = UF 
NAM = OBJECT_NAM 
SHR = <GET, OPI>S; 

SNAM_INIT (NAM = OBJECT_NAM, 
ESA = OBJECT-EXP_NAME, 
ESS = NAM xRSS 
RSA = OBJECT RES _NAME, 
RSS = NAMSC_MAXRSS); 


! LIBSQUAL_FILE_PARSE is called to parse the common qualifiers. It sets up 
! a data base which describes the results for LIBSQUAL_FILE_MATCH to use. 


STATUS = LIBSQUAL_FILE_PARSE (ZREF (LIBSM_CQF_BEFORE OR 
M_CQF _BYOWN 


M~CQF-CONFIRM OR 
M~CQF-CREATED OR 
MCF EXCLUDE 0 


$ 
$ 
$ 
$ “EXCLUDE OR 
$M~CQF-SINCE), COMMON_CTX); 


LIB 
LIB 
LIB 
LIBSM~ 
LIBSM~ 
IF NOT .STATUS 
THEN 

BEGIN 

SIGNAL (.STATUS) 
RETURN .WORST_ERROR; 


! Sit ina wane processing each ‘input’ file specified. for the copy 
! operation, the ‘input’ file is really the output file. 


FLAGSCIN_ ELLIPSE) = 0; 
WHILE GET_FILE (OBJECT_FAB) 


BEGIN 


! If this is the /DEFAULT processing. and a channel has been assigned, 
! deaccess the directory file, and deassign the channel. 


A gf LARSEOUM, .26F MA. T2 AND .SCHAN NEQ 0 


! For initial directory processing 


BEGIN 
STATUS = $Q10W (CHAN 

FUNC 
Gsco); 
CLOSEIN, 1, SOBJECT_DESC, .STATUS. 0); 
CLOSEIN, 1, SOBJECT_DESC, .STATUS, 0); 


! Now release the read lock that was taken out for the directory file. 
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ATRAARGLIST t Tsu. TMCOD] = ACLSC_UNLOCK_ACL; 
ATR-ARGLISTLO, ITMSW-BUFSIZ) = 4; 
ATR ARGLIS1 > ITMSL-BUFADR] = SACL_LOCKID; 
STATUS = SCHANGE_ACL’ (CHAN = .SCHAN 
OBJTYP = SOBJECT_TYPE, 
OBJNAM = SOBJECT DESC, 
ITMLST = ATR_ARGCIST); 
IF NOT “frat THEN SIGNAL (SETS_CCOSEIN, 1, SOBJECT_DESC, .STATUS, 0); 
pan «8 
LIBSFILE_SCAN (OBJECT_FAB, 
PROCESS FILE, ! File found action routine 
INPUT_ERROR ! Input error action routine 
= SCAN_CONTEXT); ! Stickiness context 
END 
ELSE 
BEGIN 


! Get the object's name. 
CLISGET_VALUE (SDESCRIPTOR (*INPUT'), OBJECT_NAME); 
! Attempt to obtain a write lock for the target object. 


ATR_ARGLISTCO, ITMSW_ITMCOD) = ACLSC_WLOCK_ACL; 
ATR_ARGLIST(O, ITMSW_BUFSIZ) = ACLS$S_WLOCK_ACL; 


ATR-ARGLISTCO, ITMSL-BUFADR) = ACL_LOCKID; 
STATUS = SCHANGE_ACL~ (CHAN = .CHAN 
OBJTYP = OBJECT_TYPE, 
OBJNAM = OBJECT NAME 
ITMLST = ATR_ARGLIST); 


IF NOT .STATUS 
THEN 


BEGIN 

IF .STATUS EQL SS$_NOTQUEUE 
THEN SIGNAL (SETS _OBJLOCKED 
ELSE SIGNAL (.STATUS); 
RETURN .WORST_ERROR; 


! Call the necessary routine based upon the command Line qualifiers. 
IF .FLAGSCQUAL_LIKE] THEN STATUS = COPY_ACL (OBJECT _NAME) ' /LIKE 
ELSE JF FL ASSTOUAL DELETE] THEN STATUS = DELETE_ACC (OBJECT_NAME) ! /DELETE 


F .FLAGSTQUAL_REPLACE] THEN STATUS = REPLACE_ACL COBJECT_NAME) ! 
ELSE STATUS = ADD_ACL (OBJECT_NAME); ! /AFTER, /NEW, © 


! If logging is being done, indicate that the object has been modified. 


IF_.FLAGSCQUAL_LOG) AND .STATUS 
aun SIGNAL (SETS_MODIFIED, 1, OBJECT_NAME); 


~o 


RETURN .WORST_ERROR; 
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AEDSSETACL 18-5¢ Sep-1984 AX-11 Blis V4.0-74 
vO4=000 Sep-198e Iiissi3e — FAtiepr’snedse vate :o32, 
; 669 0667 1 END; ! End of routine SET_ACL 
-TITLE AEDSSETACL 
«IDENT \v04-000\ 
-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 DIR_ seater 
45F4 00000 ;TPASTYPE 
U. 17908 
00000000* 00002 ; TPASADDR 
0.3: LONG <<DIR_GROUP-U.3>-4> 
042C 00006  TPASTYPE 
0.4: 1068 
45F4 00008 ; TPASTYPE 
WORD 17908 


U. 
00000000* O000A ; 7PASADDR 
U.6: LONG <<DIR_MEMBER-U.6>-4> 


-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
00000 DIR_KEYS:: 
00000 gipasKeyo. 


LKB =O 
0 
-PSECT SPLITS,NOWRT ,NOEXE,2 
4E 4F 49 54 50 4F Q0000 P.AAB: .ASCII sprrien 


“BLKB 
90000006 5008 P.AAA: .LONG 6 
0009000 ' 00 ¢ “ADDRESS P.AAB 
45 4C 4 4s 0 10 P.AAC: ASCII \FILE\ 
00 00 00 59 52 4F 54 43 45 ° 49 4 014 P.AAD: <ASCII \DIRECTORY\<0><0><0> 
00 00 45 43 49 43 44 000 0 P.AAE: .ASCII \DEVICE\<0><0> 
00 4C 43 41 00028 P.AAF: ‘ASCII \ACL\<O> 
52 45 54 46 41 Q000C P.AAH: ‘ASCII \AFTER\ 
90 1 *BLKB 3 
90000005 034 P.AAG: LONG 
00 000° ADDRESS P.AAH 
54 46C 55 41 46 45 46 iC P.AAJ ee \DEFAULT\ 
000 9007 4 P.AAL: “LONG 
0000 09° 48 DRES $ P 
65 54 45 4C 45 & H P.AAL: “ASE! \DELETEN 
tied 8 pi HODES P.AAL 
47 4F 4C ¢ P.AAN: “ASCII \LOG\ 
000 00 P.AAM: [LONG 
000° “ADDRESS P.AAN 
45 43 41 4C 50 4 P.AAP: “ASCII \REPLACE\ 


BLK 
00000007 * P.AAO: .LONG 7 


H 14 
AEDSSETACL 6-Sep- 4 00:02: AX-11 Bliss-32 V4.0-74 Pp 5 A 
vie 16 =Sep- 138 90:98:39 ACLEDT.SRCISETACL B32; aa } v 
00090009' 4 -ADDRESS P.AAP ; ; 
57 45 4E 8 P.AAR: <ASCII  \NEW\ ; : 
00900000" 5 ee =LONG SS PAAR ; 
45 4849 ot B-AAT: tng ps : : 
00990000 “” TADDR ESS P : : 
50 59 54 SF 56 43 45 GA 42 4 2E 45 48 $9 4 30 P.AAV: <ASCI \Line. Topvect. TYPE .FILE\ : : 
hs -BLKB 3 : : 
60990000 TF ee AUS eae ess PAV : ; 
50 59 54 SF 54 43 45 4A 43 af ze 45 48 49 46 60 P.AAX: ASCII \LIKE.OBJECT_TYPE.DEVICE\ ; : 
0000017 Soe P.AAW: PONG 3 : 
00900000 d0c¢ “| SADDRESS P : : 
50 59 54 SF 54 43 45 GA 42 oF 26 45 48 49 46 9000 P.AAZ: <ASCII \Like” ‘OBJECT _TYPE.QUEUE\ ; : 
000001 itt P.AAY: PONG 2 
00000000" Boe, “AMY! SADDRESS P_AAZ : ; 
59 59 56 SF 54 43 45 4A 42 4F 26 45 48 49 4¢ OOFO P.ABB: <ASCII \LIKE.OBJECT_TYPE.EVENT_CLUSTER\ : : 
2 45 54 53 55 4C 43 SF 54 4E 45 56 45 2€ 4 OOFF ge : : 
90000016 O110 P.ABA: LONG : : 
0000000 * 00114 [ADDRESS P.ABB : : 
50 59 54 SF 54 43 45 GA 43 4F 26 45 4B 4 4¢ O18 P .ABD: ASCII \LIKE.OBJECT_TYPE.LOGICAL_NAME_TABLE\ : : 
SF 45 4p 41 «GE SF 4C 41 «(43 «(49 47 oF 4¢ 25 45 or i : 
1 : , 3 
90000023 1 C P.ABC: ;LONG 35 : : 
0000000" 0146 [ADDRESS P.ABD : : 
50 59 54 SF 54 43 4§ 4A 42 af 2E 45 48 49 i a133 P.ABF: <ASCII \LIKE.OBJECT_TYPE.PROCESS\ ; 
0018 0015C P.ABE: .LONG 24 : ; 
stint. 166 “ADDRESS P.ABF : : 
50 59 54 SF 54 43 45 GA 42 4F 2E 45 48 4 4¢ 164 P.ABH: -ASCII \LIKE.OBJECT_TYPE.GLOBAL_SECTION\ ; : 
oF 49 «54 «443 «45 «53 «SF O4C O41 «(642 «(GF «UGC OC47:sCOE 43 ; 
1 .BLKB ’ ; 
9000001 184 P.ABG: <LONG | F : 
0 990000" 1 “ADDRESS P.ABH : : 
4D 41 GE SF 54 43 45 GA 42 GF 2€ 45 48 4 ‘ C P.ABJ: ASCII \LIKE.OBJECT_NAME\ : ; 
1 19C P.ABI: .LONG 16 : : 
$8000000" OTA tOOR ESS AB) 
45 48 2 4C Ae B “ABL : “ASCII t LIKE\ 3 
00990000" 1ac "ADDRESS P.ABL : ; 
6C 469 466 2E 45 50 59 56 SF 56 43 45 GA 4 af 180 P.ABN: :ASCII \OBJECT_TYPE.FILE\ ; 
1 140 P.ABM: .LONG 16 : ; 
ite sit 14 ADDRESS P.ABN : 3 
56 45 44 2E 465 50 59 54 SF 56 43 45 4A 4 of 1c8 P .ABP: ‘ASCII  \OBJECT_TYPE.DEVICE\ 3 


AEDSSETACL 15-Sep-1984 0 AX-11 Bliss-32 V4.0-74 e Al 
vie 800 1eageb7138e 99:98:82 | PARED ob hes see tt 833! age (ie vl 
1DA -BLKB : 

Me BBO8* BOIES Meet ohON BE ss 

45 55 51 2€ 465 50 59 56 SF 54 463 45 of i P.ABR: Aecti’ \OasECT. TYPE. QUEUE\ : ; 
1F .-BLKB , ; 

iy TEE tate oot ESS P.ABR 

45 56 45 2€ 45 59 56 SF 54 43 & 06 P.ABT: .<ASCII \OBJECT_TYPE.EVENT TER\ : ; 
BR BU 2 8G Beye A ere ten ne : 7 

ed $ destin “LONG. 625 ; P.ABT : 

47 4F 6C 26 45 50 59 56 SF 54 463 45 GA 42 GF P.ABV: ASCII \OBJECT_TYP AL_NAME_TABLE\ ; ; 
45 4C a5 41 54 3p 45 40 41 GE SF 4C 41 43 49 i ? — oBuE hia aa. sic, ; : 
BponROn* boas | ABU: “LONG 8 easy : 

4F 52 50 2€ 45 50 59 54 SF 54 43 45 4A 4 4 0 4¢ P.ABX: -ASCII \OBJECT_TYPE.PROCESS\ : . 
025F .BLKB ’ : 

Boogo000" 0964 NM" ADDRESS P.ABx : 

4F 4C 47 2€ 465 50 59 56 SF 54 43 45 GA 42 4F 00 68 P.ABZ: .ASCII \OBIECT _TYPE.GLOBAL_SECTION\ : ; 
4E GF 49 54 43 45 53 SF 4C 41 42 00 f a : : 

0000001A 0 bi P.ABY: :LONG 56 ; 

00090000" “ADDRESS P.ABZ ; F 

4C 43 41 0028C P.ACB: ‘ASCII \ACL\ ; : 

O28F BLKB | : 

80 o00 800" 90994 “A? “ADDRESS P : ; 

45 43 41 4¢ 5045 52. 00 38 P.ACD ASCII \REPLACE\ : : 

00000007 60 AO P.ACC: ;LONG ; ; : 

00000000" 002A4 “ADDRESS P.ACD ; 

52 45 54 46 41 0 As P.ACF ae \AFTER\ : : 

Rit 5 BO P.ACE: .LONG ; ; 

0 B4 ADDRESS P ACF : ; 

65 6€ 69 6C 20 64 6E 61 6D *900¢ a Serrt fel \command Line\ ; : 

Pm 8 it (8 ° lADDRESS P.AC : : 

65 6E 69 6C 20 64 6E 61 6D : F CC BACd: ASCH \ pe Be Line\ ; 

:: $0 DC ° ~~ SADDRESS P : ; 

54 55 E 03 E P.ACL: “ASCII \FAPUTA : : 

000005 £8 P.ACK “PONE : ; 

tite 800" EC “ADDRESS P.ACL : ; 

.PSECT SOWNS,NOEXE,2 ; 

so0f? FLAGS: -BLKB g ; 

BLKB : 

WORST ERROR: Ri ; 
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Se DS SE TACL 


Sep-1984 00:02:30 
IecSeo-t9ge 00:03:48 
00008 ACL_LOCKID: 
0000C OBJECT_TY Es 
00010 OBJECT Nine: 
00018 OBJECT FAB: 
00068 OBJECT_NAM: 
000C8 OBJECT_EXP_NAME: 
-BCKB 55 
001¢7 “BLKB 
01C8 OBJECT_RES_NAME: 
-BCKB 255 
903¢7 -BLKB 
C8 RELATED_NAM: 


LK 
Sbase CHAM: kee 


BLK 
00330 SACL_LOCKID: 
00334 SOBJECT TYPE: 
00338 SOBJECT DESC: 
00340 SOBJECT FAB: 
00390 SOBJECT NAR 
003FO SOBJECT_EXP_NAME: 
BLRB 255 
“BtKB 
SOBJECT_RES_NAME: 
-BLRB 255 


-BLKB 
SCH “BLKB 4 


OO4EF 
004F0 
OSEF 
OO3FO scum 
O5F4 SACL Context: 


.BLKB 4 
005F8 SDEVICE_DESC: : 
00600 SFIB_DESC: 

.BL 8 
00608 SFILE_F 18: 

~BL 64 
00648 COMMON. CTX: ; 
0064C ATR_ARGLIST: 

-BLKB 36 
00670 CLI_ACE_DESC: . 
00678 ERROR_POS: : 


0067C ACE_DESC: 
-BLKB § 
00684 ACE: .BLKB 512 
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nese tate :635, 
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00884 ACE_POINTER: 


: 4 ; 

00888 ACE_TEXT’DES t'. ; 

00890 ACE_TEXT: ; 

-BLKB 3072 : 

01490 OLD_ACE_HEAD: , : 

01498 NEW.ACE HEAD: : : 

0140 DIR_GROUP: : ; 

01444 DIR_MEMBER: : 

-BLKB 4 ; 

$RMS_PTR= SOBJECT_FAB ; 

SRMS_PTR= SOBJECTNAM : 

SRMS_PTR= OBJECT_FAB “ 

SRMS~PTR= OBJECT" NAM : 

.EXTRN SETS$_NOHIDDEN, SET$_OBJLOCKED : 

sEXTRN SETS_IVORDER, SET$_ROSUCHACE : 

“EXTRN SETS$-MODIF IED, cLiscet VALUE 3 

-EXTRN CLISPRESENT, LIBSFID TO_NAME : 

“EXTRN LIBSFILE_SCAN, ies QOAL ~F ILE_MATCH ; 

eEXTRN LIBSQUAL- FILE PARSE : 

-EXTRN LIBSTPARSE, CYSSCHANGE ACL : 

-EXTRN LIBSSIG PE : 

“EXTRN SYSSPARSE_ACL, LIBSGET_VM : 

-EXTRN SYS$Q10W, SYSSDASSGN : 

.PSECT $CODE$,NOWRT,2 : 

5B 000000006 00 9€ 9002 MOVAB LIBSSIGNAL, R11 : : 

SA 0000' CF 9E 000 MOVAB P.AAA, R1 : : 

39 000000006 00 3E 9000 MOVAB CLISPRESENT. Ro ; : 

8 0000' CF 9E 0001 MOV FLAGS, R ; : 

SE 1 § OO1A SUBL2 #24, SP : : 

24 00 bE “ne 0 C ote MOVCS #0, (SP), #0, #36, ATR_ARGLIST ; 0293 : 
0040 8F 00 SE ngog 09 26 90083 MOVCS #0, (SP), #0, #64, SFILE_FIB ; 029% : 
08 00 Jo 6 2C O00eF MOVCS #0, (SP), #0, #8, CLI_ACE_DESC 3 0295 ; 
067 c 0670 7 MOVC3 #8, CLI_ACE_DESC. ACE_DESC : 96 : 
C 70 ~¢ F MOVCS #8, CLITACE-DESC, ACE-TEXT_DESC : 029 : 

10 A 70 ¢ 47 MOVCS #8. CLITACE“DESC, OBJECT_NAME > 029 : 
0338 «C 670 ¢ 4E MOVCS #8. CLIZACE“DESC, SOBJECT DESC ; : 
1 AE 670 ¢ 2 MOVCS #8, CLITACE-DESC. CMD_DESC ; : 
0600 C 670 ¢ vC3 #8, CLITACE~DESC, SFI6_DESC ; O1 : 
84 6 CLRW =: FLAGS. : 030 3 

04 AE D4 000 CLRL SCAN CONTEXT + 0304 : 

0334 CB D4 A CLRL  SOBJECT TYPE ; 0305 3 

OC «AB OG : CLRL  OBJECT_TYPE ; : 

O5F C8 D4 CLRL  SCHAN : 0306 : 

28 ¢B D4 00075 CLRL = CHAN ; : 


iScBeo-1964 90:08:50 AKT? a in4=52 14.027 


az 


oe TACL 


% A 1 79 MOVL #1, WORST ERROR : 
06 C MOVE #2, CLI_ATE DESC+3 : 
A MOVB #2, OBJECT _RAME+3 : 

03 C MOVB #2, SOBJECT DgSC#3 : 

13, (A MOVB #2. CMD_DEST+ ‘ 

. C A F vw #16, SFIB_DESC : 
606 ¢ 608 CB 9E MOVAB SFILE_FIB, SFI8_DESC+4 : 

680 ¢ 684 (8B 9E VAB ACE, ACE bESC+4 : 

490 9 A MOVAB OLD_ACE_READ, RO : 

149% C D A MOVL RO, ~OLD-ACE_HEAD+4 : 

1490 ( B AC MOVL RO, OLDTACE"HEAD : 

1498 B1 MOVAB NEW LACE HEAD . RO : 

eee D B6 MOVL RO, "NEWTACE_HEAD+4 : 

1498 ¢ 0 BO 000 MOVL RO, NEW-ACE-HEAD : 

10 AE 9F 000C PUSHAB CMO_DESC : 

5A OD 99¢ PUSHL R10 : 

000000006 90 02 re 0c CALLS #2, CLISGET_VALUE : 
2 a ae ; 

04 33 B1 000D CMPW =O. #4 : 

3 18 0006 BLEQU 1$ : 

50 % 00 0000 MOVL #4, RO : 

50 00 14 BE a 2D anor! 1$ CMPCS R4, @CMD_DESC+4, #0, RO, P.AAC : 
D 12 000E3 BNEQ 2 : 

01 A 28 as 0005 B1SB2 #2, FLAGS+#1 : 

oc A 1 DO 000E9 MOVL #1, OBJECT _TYPE : 

0334 ¢ o1 00 OOED MOVL #1, SOBJECT_TYPE . 

50 4 0 OoFe 28 MOVL R&. RO : 

09 30 B1 OO0F CPW 0, #9 : 

0 18 000F8 BLEQU : 

50 09 p OOFA MOVL #9, RO : 

50 00 14 BE oc 3h 2 200k 38 CMPCS R4, @CMD_DESC+4, #0, RO, P.AAD : 
—E 12 001 BNEQ ; 

01 ABs 40 BF a8 0107 BISB2 #64, FLAGS+1 : 

C AB 01 DO 0010C MOVL 1, OBJECT_TYPE : 

0334 8 g1 0 9110 MOVL #1, SOBJECT_TYPE : 

50 4 00 00115 4$ MOVL ; RO : 

06 30 81 118 CMPW 0, #6 : 

03 18 0018 BLEQU : 

50 06 p O10 OVL #6, RO : 

50 00 14 BE 133g 2 01 5$ CMPCS 4, @CMD_DESC+4, #0, RO, P.AAE : 
0D 12 001 BNEQ 6$ ; 

01 A 10 88 0012A BISB2 #16, FLAGS+1 ; 

0¢ A DO 001 MOVL a3. OBJECT_TYP : 

0334 ¢ DO 001 MOVL #2, SOBJECT_TYPE : 

5 D0 00137 6$ MOVL = R4, RO ; 

0 BI 0015 CMP sO. @ : 

: 13D BLEQU i$ ; 

50 p 13F MOVL. #3, RO : 

50 00 14 BE Re 34 2b the 7$ CMPCS R4, @CMD_DESC+4, #0, RO, P.AAF F 
E 12 OO14A BNEQ 8$ ; 

o1 ag 80 i as 14¢ BISB2 #128, FLAGS+1 F 

c. s 1 D0 0015 MOVL #1, OBJECT_TYPE : 
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ngDSSETACL 1G-Ben-1964 90:02:89 YAKI! Olen 32, ¥4.0:74 


vi 


0334 8 01 po 155 MOVL #1 SOBJECT. TYPE : 
9 ct feos cats Ch ISPRESENT : 
68 01 0 95 FB 1 INSV 4p chise » FLAGS : 
9 ot Fe 001 CALLS fi at ISPRESENT 3 
68 01 6 95 FB 1 INSV i, 8 , FLAGS : 
69 =F he Os. inc ISPRESENT ; 
68 01 01 95 FB 176 INSV m0 , FLAGS ; 
58 AA 9F 00178 PUSHAB : 
69 1 FB ve CALLS is f spaesent ; 
68 01 0 FO 001 INSV , FLAGS : 
68 AA OF 01 PUSHAB P. hao” : 
69 1 Fe 1 CALLS #1, CL ISPRESENT ; 
68 01 04 0 FO 0018¢ INSV RO. #4, #1, FLAGS : 
74 AA 9F 00191 PUSHAB P.AA : 
69 1 FB 0194 CALLS #i, CLISPRESENT ; 
68 01 05 0 FO 00197 INSV RO. #5, #1, FLAGS : 
0080 CA 9F 0019 PUSHAB P. ‘i : 
69 or F 1A CALLS C ISPRESENT ; 
68 01 08 Q FO OO1A INSV 4 #2, #1, FLAGS 
0 5 01 BLBS RO, 9$° 
015A O1AB BRW 
0 as 5 OO1AE 9$: TSTB FLAGS+1 
73 18 00181 BGEQ 17 
OOAO CA 9F 001B3 PUSHAB P.AAU 
69 1 FB 01B7 CALLS #1, CLISPRESENT 
05 0 £9 001BA BLBC : 
0334 8 01 DO 0018 MOVL #1. SOBJECT_TYPE 
00CO CA 9F 001C2 10$:  PUSHAB P.AAW 
69 gi FB 01C CALLS #i, CLISPRESENT 
05 0 €9 O01C BLBC * 
0334 CB 02 pd d0ic¢ MOVL We SOBJECT_TYPE 
O0EO CA 9F 00101 11%:  PUSHAB Y 
69 1 FB 00105 CALLS i. SPRESENT 
05 Q E9 00108 BLBC 
0334 8 0 pd 0108 MOVL * SOBJECT_TYPE 
0108 CA 9F OO1EO 12$: § PUSHAB A : 
69 oI FB O1E4 CALLS i. CLISPRESENT 
05 0 E9 OO1E7 BLBC 
0334 CB 04 pd O1EA MOVL a SOBJECT_TYPE 
0134 CA 9F OOIEF 13$:  PUSHAB 
69 1 FB OIF CALLS » GLISPRESENT 
5 0 €9 OO1F BLBC 
0334 8 05 pd 1F MOVL * SOBJECT_TYPE 
0154 CA 9F OO1FE 14%:  PUSHAB 
69 1 FB CALLS » CLISPRESENT 
05 O€ BLBC 
0334 8 6 pO MOVL ne SOBJECT_TYPE 
017¢ «(CA OOF 15$:  PUSHAB 
9 1 FB 11 CALLS #1, CLISPRESENT 
5 : E 14 BLBC 
0334 (8 0 00217 MOVL OBJECT plvre 
0338 C8 OF 1 16$:  PUSHAB cog,fet 
194 cA F 3 PUSHAB 
8 11 4 BRB tase 


14 
AEDSSETACL 18-5e -1984 00:02: AX-11 Bliss-32 V4.0-74 Pa 1 
nares 1e-geP=138s 99:85:39 PAN) ek hese tt 835° a) 
338 «6CBOOF 6 17$:  PUSHAB SOBJECT_DESC 3 0394 
iA A OF A PUSHAB P.ABK : 
000000006 0 2 re 3 188: CALLS # gt $GET_VALUE ; 
G4 C 00000094 F MOVL #655 ATR_ARGLIST 3 0399 
650 ¢ 0 CB 9 MOVAB SACL_LOCKID, ATR_ARGLIST+4 ; 0400 
E 7C 0024 CLRQ. = =(SP > 0404 
4 0024 CLRL ss = (SP) : 
4f C8 9F 00249 PUSHAB ATR_ARGLIST : 
C8 9F 00240 PUSHAB SOBJECT_DESC 3 
4 (8 OF l SHAB SOBJECT-TYPE : 
. FO DD PUSHL  SCHAN : 
000000006 99 F CALLS #7, SYSSCHANGE_ACL : 
Q D 6 MOVL RO. STATUS : 
03 5 : BLBS TATUS, 19S + 0405 
0489 BRw : 
01 0334 CB 01 00269 198 CMPL OBJECT_TYPE, #1 + 0416 
g 13 00 $ BEQL 0$ ; 
00 1 00 BRW 2s : 
0050 8F 00 6E 34 34 C 3 fe 208 MOVCS #0, (SP), #0, #80, SRMS_PTR : 0425 
0340 cB Hh F BO 0027D MOV 420483 SRMS_PTR : 
0344 «C 00020900 F DO 00 8 MOVL #131072, SRMS_PTR+4 : 
0356 C 420 F 3 0 MOVW #16898, SRMS PTR+22 é 
O35F «OC 2 0294 MOVB = #2, $ : 
0368 C8 0390 C8 9E 00299 MOVAB SOBJECT_ SRMS_PTR+40 : 
036c C8 033¢ ce D 00 AQ MOVL SOBJECT-DESC+4, SRMS PTR+44 : 
0374 8 338 OC 3 O2A MOVE. SOBJECT~DESC, $RMS_PTR+52 ; 
0060 8F 00 6E ed 00 C 00 AE MOVCS #0, (SPT, #0, #96, S$RMS_PTR ; 0430 
0390 cg 6002 er 0 00288 MOV #24578. $RMS_PTR : 
0392 «¢ 1 BE 002BF EGB #1, $RMS_PTR? : 
0394 cB 04FO CB 9E 002C4 MOVAB OBJECT RES_NAME, SRMS_PTR+4 : 
039A C 01 gE 002C¢B MNEGB #1, SRMS PTR+10 : 
039c «C8 03FO cé E 00 00 VAB_  SOBJECT_EXP_NAME, SRMS_PTR+12 ; 
0340 C8 9F 002D PUSHAB SOBJECT~FAB $ 0431 
000000006 00 gi FB 0 CALLS i, SY SSOPEN : 
7E 0348 c8 5 O2E VQ SOBJECT_FAB+8, -(SP) > 0434 
0340 OF OOZEA - PUSHAB SOBIECT FAB : 
awa 6 UTR eet aE a : 
50 1077109A BF 00 0 F9 mOVL 727605869 , RO ; 0436 
: T_FAB+12, SCHAN > 0438 
osro ce ones SAP APMED GUE: BYR, StRURSy F425 Bide 
62 18 BGEQ 29$ 3 
0188 CA 9F 0030D PUSHAB P.ABM > 0447 
9 1 Ff 11 CALLS #i, CLISPRESENT : 
4 0 € 14 BLBC —E._«aRO. : 
oc AB 01 DO 00317 MOVL #1. OBJECT_TYPE F 
01D4 A F 1B 23$ PUSHAB : 0448 
69 &. 1F CALLS #i, GL ISPRESENT ; 
0c 3 39 f § ADVE ; , SBIECT TYPE : 
O1FO «CA oF 24$ PUSHAB P. ° > 0449 
9 1 F CALLS #i, CL ISPRESENT : 
4 0 €£ BLBC—E.—s«aRO. : 
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oc «AB 03 pO 3 MOVL #3, OBJECT_TYPE 
0214 CA OF 25$ PUSHAB § 
9 1 re B CALLS i, g SPRESENT 
4 0 € BLBC =—E_—s«aRO, 
oc As 4 Bo 4 OVL #4. OBJECT_TYPE 
023c CA 9F 00345 268 PUSHAB P.ABU 
69 1 re 4 CALLS #i, § JSPRESENT 
04 Q E 4C BLEC 3—Es«RO. 
oc AB Bo AF MOVL #5, OBJECT_TYPE 
0258 CA 9F 23 27$ PUSHAB P. ABW 
9 1 EB 0 CALLS #i, § ISPRESENT 
4 0 € A BLBC RO. 28$ 
oc =A 6 00 00350 MOVL #6, OBJECT_TYPE 
027¢ CA 9F 00361 288 PUSHAB P.ABY 
9 1 FB 0 63 CALLS #i, CLISPRESENT 
4 9 E BLBC 3=_«aRO,. 
oc AB 07 DO 00368 MOVL #7. OBJECT_TYPE 
0670 CB 9F 00 of 298 PUSHAB CLI_ACE_DESC 
0288 CA 9F 00 3 PUSHAB P.ATA 
000000006 00 92 FB 037 CALLS “2, CLISGET_VALUE 
03 E 0 43 -« BLBS-s—séR $ 
0008 31 0038 BRW 41 
067C CB 0200 BF 80 Seas 30$: nOvY #312, ACE_DESC 
0678 3 ‘OF 00380 PUSHAB ERROR_POS 
067 C8 9F 00391 PUSHAB _DESC 
067 9F 00395 PUSHAB CLI~ACE DESC 
000000006 90 4 af 00 99 CALLS a, SYSSPARSE_ACL 
24 : E8 00 Ag BLBS STATUS, 32$ 
0674 C8 0678 C8 CO 003A6 31%:  ADDL2 ERROR_POS, CLI_ACE_DESC+4 
0670 ¢ 067 C8 Ae 00 AD SUB ERROR_POS, CLITACE-DESC 
oS DD 00 B6 PUSHL STATUS 
0670 C8 9F 00388 PUSHAB Cl 1_ACE_DESC 
1 DD 00 BC PUSHL # 
007710FC 8F DD 003BE PUSHL #7803132 
68 5 Fe 0 C4 CALLS #5, LIBSSIGNAL 
0000 3 C7 BRW 45$ 
2D 0687 8 02 Fi O3CA 328 BC #2, ACE+3, 35$ 
000000006 00 SF 00300 33$ PUSHAB sets NOHIDDEN 
1 FB 00 D6 CALLS #1, CIBSSIGNAL 
7 000000006 44 D VAB sets NOHIDDEN, RO 
1 f EO BLBS RO, 34$ 
50 00000000 E O03E OVAB <SET$_NOHIDDENG7>, RO 
50 04 As 0 Fo 0 EA CHPZV #0, #3, WORST_ERROR, RO 
04 As 00000000* 0 E ig ie MOVAB <SETS_NOHIDDEN! 268435456>, WORST_ERROR 
0884 CB OF 003FD 3: PUSHAB ACE_POINTER 
4 AE 684 A 00401 MOVZBL ACE 4(SP) 
4 AE 0 407 ADDL2 #8, 4(SP) 
04 AE 9F 00408 PUSHAB 4(§P) 
000000006 00 FB 0040 CALLS #2, LIBSGET_VM 
D0 0041 MOVL RO. VM STATOS 
6 . 41 BLBC VM'STATUS, 36$ 
5 0684 (CB 9A 0041B MOVZBL ACE, RO 
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Fed et ke ee ee ee ee ed et ek ek ee 


SoOoooooooooooooooo 


ADDL 
MOVC 


ob $7i58:32 — YadceDr’sneSsetatt ese] 


43. RO 

#0, (SP), #0, RO, @ACE_POINTER 
mM STATU STATUS 

STATU US 56 


$55 US 

ACE, RO 

ACE “POINT R, Rb 

RO, ACE, 8(R6) 
1, FLAGS, 38$ 

#4. FLAGS 


$ 
0 b. ACE_HEAD+4, RO 
NEW_ACE_HEAD+4, RO 
(R63, (RO) 
9$ 
cul ACE DESC 
LAGS, 42$ 


ACE+3, 48$ 


ace POINTER 
ace. qea0" 
“4 (SP) 


aC P) 

“5° t LIBSGET VM 
M_STATOS 

vA ‘STATUS, 49$ 

ACE, RO 


WBNS RBWUYDBOPM i Biwse 
ee ee eee ee 


#8, R 
#0, (SP), #0, RO, @ACE_POINTER 
VM Maile 86s STATUS 


ACE, 
ACE “POINTER 


RO, “ACE hor” 
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000000006 


01 
0000Vv 


8 149C cs 
5 1494 C 
149 ; 
8 ie et 
0 tue 
2 
6 4 
68 5 
68 2 
02BC : 
007710FC ? 
6B a 3 
SF F § 
68 0 
0200 cf 
A&B 107710FC BF 
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01 0c s 
nd 
6E 00 
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DUPUDVIV IV DIVDVIVLIVLIVIVIVIVDVIUDVUIVIVSUSVSUSIVUSVSUSUSUSU SUSU E SUSU USSSA USS USUI IOS USUI TASS USSU IOS 


"OOO NP$" DOW OVWMMMMOS OMNSoooeo PW 3 O7Woo "0O—CoN 


*"WOWmno7 


wiw 
nm 
PA 


Be 19:98:32 


AX-11 OL jeg -3¢ V4.0-74 
ACLEDT.SRCJSETACL.B32; 
$ 


#4, FLAGS, 51 
N W.ACEHEAD#4, RO 


OLD ACE HEAD+4, RO 
(R63, (RO) 


132 
IBS$SIGNAL 
LAGS, 58$ 


6238588, WORST_ERROR 


aii #1 
0$ 


#0, (SP), #0, #80, SRMS_PTR 


#20483, $RMS_PTR 

4431075, SRMS_PTR+4 

#16899, SRMS_PTR+22 

#2, $RAS_PTRI31 

OBJECT NAM, $RMS_PTR+40 

#0, (SP), #0, #98, SRMS_PTR 
424578. SRMS_PTR 

#1, SRMS PTR? 

OBJECT RES NAME . SRMS_PTR+4 
#1, $RAS PTR+1 

OBJECT EXP NAME. SRMS_PTR+12 
#28, &(SP) 

#2, LIBSQUAL_F ILE_PARSE 

RO, STATU 

StAtUs. 60$ 

#8, FLAGS#1 


AB 
#i, OgT FILE 
RO, 62$ 


NRBWIVUBSBBVBVUVZVZZVSE 


#6, FLAGS, 64$ 
£98 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Fe Ge Fe Ge Ge Se Se Se Se Be Se Se Se Ge Se Se Se Be Se Se Fe Ge Se Ge Se Se Se Be Fe Se Fe Se Se Se Fe Fe Se Se 


0569 


A 
13 :02: AX=11 Bliss-32 v4.0-74 Page 35 v 
wpe. 1ESee~19ge 00:08:50 YAU OLisgc82 ye. 04 , . 
% : T HAN : é 
a oe a foal at 
7E 7 QO5F =(8P) . ; 
Boe Rare ftRa = =($P) : 
4 € 9085 etna 19, STATUS : ; 
A f PUSHAB 10_S : : 
na BR pe Sila ; 1 
O5F0 8 DD pe ) r ; 
FB 060g eats ; STATUS S604 
000000006 99 35 09 $1 ov erarde. = 
08 AE SC 0061 Roviu. 10 status, sTATU : 0605 
35 oP Eb OOGIE 6. GLAS" SIRIUS 
5 DD esi PUSHL. STATUS a ; 
0338 8 OF 006 3 PUSHAB SOBJECT_DE ; 
1 DD 006 ; 
ores 6 Oe CALLS #5. CIBSSIGNAL ; 
3 EB beget CMPZV #0, #3, WORST_ERROR, #2 
04 As 1077105 F D Once 66$: PUSHL 3 : 
OSF 8 DD 006 ¢ "CALLS = #1, SYSSDASSGN : : 
000000006 99 0 fe bocce MOVL RO, STATU 0607 : 
35 37 E8 0065 BLS STATUS, 675 
$F bp 358 an OBJECT DESC ; 
am A pity | pee pe : : 
065 PUSHL #780296 : : 
eerriese 05 ‘ 0363 CALLS 10, BS UORST ERROR, #2 
02 04 As 0 08 066C BGEQ = 6 18, WORST_ERROR : F 
MOVL 4 coeges 3 O6i¢ : 
AB 10771052 «BF «00 006 : 4966 6, ATR_ARGLIST : 061 ; 
I AS a gh A By) | 
E 7C 006 . ; 
CLRL=(SP) 
g EER he Uti : 2 
ih ‘SOF 0069 PUSHAB SOBJECTITYPE 
5F0 BD BOCoA CALLS BY SYSSCHANGE _ACL a 
000000006 9 D Al MOVL RO, STATY . ; 06 : 
7 BB O0eAG Blas STATUS, ; 
' EBS pReal BUSHL STATUS ; é 
28 OF OOSAB PUSHAB SOBJECT_DESC 
03388 DD OOGAF PUSHL #7802%2 ; 
00771052 8F D #5, LIBSSIGNAL 
i 7 eae ‘ , BS” WORST ERROR, #2 : 
02 me 5 | 6238418, WORST_ERROR 
04 a8 10771052 BF DO 006C nove 8 


A 
Page 26 v 
-32 v6.0-74 &§J 
F 15 AX11 Bliss-32 v4.0-74 

o = 4 : . «SRC SE ACL.B . $ 
iecSeort9ge 90:08:39 yascdy, li 
vouso00 OFF) FP BP BROe See: a SUN rent : 3 
dv CF oe Sheet | obUaMA nmr one : 
et cect fom) 
CF HAB ; ; 
oN a F o¢ EALLS 3, LIBSFILE_SCAN ; $32 : 
000000006 00 rer? Sf ES 70$:  PUSHAB OBJECT NAME 
10 AB BF 00GES CAS. #3. CLISGET. VALUE ; : 0637 
seas 62 FB OOGED ROVE FreosbbeSataVARGL st £ Oeae 
Oe Cee AD ae : : 
28 7e 7 LRL  =(SP) 
th OF it PUSHAB OBJECT NAME : 
a ae $f 708 PUSHAB OBJECT-TYPE ; 
F 00 CHAN : ; 
0308 C8 DD a CALLS AP SYSSCHANGE ACL : 0643 : 
000000006 00 09 Orie Bras STATUS das g Gehe 3 
27 ; ES OO7IF LBS STATUS, 2488 ~~ 
7 ; : ; 
nt ee : : 
pean 0, c FS OBJLOCKED, R : : 
MOVAB S$ : ; 
$0 000000006 99 es 7 ay es OBJLOCKEDE7>, RO. : 
$7 00000000" 00 9€ Brie CMPZV #0, #3, WORST. >, WORST_ERROR ; : 
03 8 18 oorde ROVAB <SETS_OBJLOCKED!268435656>, : 064 ; 
" sh ge 4 a8 00000000 00 9 O75 BRB 2 a ; ; 
: 39 DD Of87 728: CALLS Hi Lioss ou. | : : 
: 0 8 : : ; 
BR By BMH ise, : : 
0 764 79$ RST_ERROR > 0649 : 
20 04 rf 03 ap ig Ore BIsL3 4368435456, STATUS, WO ; 0654 ; 
04 ABs ; 51 102 74$: SosHas 08) CT_NAM : : 
OA “ 10 AB 9F 077 CALLS ras COPY_ACL : ; 0655 : 
OA 68 10 ae of 1? CALLS ne DECETE_ACL 0656 
oDoov CF an tn : 
OA 68 10 a8 i 6 44 CALLS ie REPLACE_ACL ; 0657 : 
CF 79F ECT _NAME : : 
0000v * i of tA) 778: Chee ae ADB ACL > 0661 : 
: MOVL ‘ 79$ : ? 

o000v fF 06 a9 788: ROVER FLAGS 

? 7A Atus, 79s 
32 $8 : E9 00780 BLec Os ST 
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DSSETACL 18-50 -1984 00:02: AX-11 Bliss-32 V4.0-76 P 7 
vb 12-800-438e 99:95:82 «FARES Pb degsze vh- 033% age ¢! 
10 AS OF 7B PUSHAB OBJECT NAME 3 0662 

D PUSHL # F 

000000006 F 007 PUSHAB sits MODIFIED ; 

FB £8 CALLS #3, CIBSSIGNAL ; 

000000006 9 gC OVA SETS MODIFIED, RO : 

: 00000000* 5 iC MOVAB <SET$_MODIFIEDE7>, RO F 

50 04 As 0 iB 105 CMP ZV ! #3, WORST_ERROR, RO : 

04 ag 00000000 F 7DA MOVAB <SETS$_MODIFIED!268435456>, WORST_ERROR : 
5 4 A p fee 79$ MOVL § WORST[ERROR, RO 3 0665 
4 OO7E RET + 0667 


; Routine Size: 2023 bytes, Routine Base: S$CODE$ + 0000 
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HW 15 
16-Sep-1984 00:02: AX-11 Bliss-32 V4.0-74 
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ROUTINE GET_FILE = 
hag 
FUNCTIONAL DESCRIPTION: 
This routine gets the _— file specification in the command Line. 
If there are no more spec #icetions one routine returns zero. 
Otherwise, the next file spec fication is placed in the specified 
FAB for later searching and parsing. 
CALLING SEQUENCE: 
GET_FILE 


INPUT PARAMETERS: 
none 

INPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
if a specification was found 
0 otherwise 


SIDE EFFECTS: 
The retrieved file specification is placed into the specified FAB. 


BEGIN 

OWN ; 
FILE_DESC : SBBLOCK CDSCSC_S_ BLN] ! File name descr 

INITIAL (REP DSCSC_S_BLN OF (BYTE (0))); 

LOCAL 
DESC : SBBLUcK CDSC$C_S_BLNI, ! Temp descriptor 
ENDCHAR : BYTE, ! Dir spec terminator 
EOS, ! End addr of dir spec 
PTR, ! Moving pointer in dir spec 
STR_PTR, ! Pointer to remainder of spec 
STR_LEN : Regetning Length of dir spec 
TEMP_STRING : VECTOR CNAMSC_MAXRSS, BYTEJ, ! Temp dir spec storage 
TE ' Location of string to find 


STATUS; i Local routine exit status 
! Determine whether or not it is necessary to get another input sgpxcification. 
wer -FLAGSCSET_DIR_CMD] OR (.FLAGSCSET_DIR_CMD] AND NOT .FLAGSCIN_ELLIPSE)) 


a 


al Be 
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; q 5 BEGIN ; 
3 : ! If there are no more specifications, return 0. ‘ 
; 7 FILE _DESCCDSC$B_CLASS] = DSCSK_CLASS_D; ; 
; 4 ¢ 4 IF NOT CLISGET_VALUE (SDESCRIPTOR te rnbut’), FILE_DESC) THEN RETURN 0; : 
; 5 4 ; ! FILL in the FAB fields for the normal (or simple) case. : 
: 7 7 OBJECT_FABLFABSL_FNA] = .FILE_DESCCDSCSA_POINTER); ; 
: f 5 : é peace FAB FABSB_ FNS) = .FILE- DESC DSCSW- _LENGTHI; : 
: 7% 7 : 
3 «741 7 3 ! If this is a SET DIRECTORY command, it is cas yt | to do a 5 additional : 
3 re 7 ! processing of the input file specification. In other words, i i e PF 
; ez oy ! necessary to turn the directory specification into a file shes it leat len. : 
i 045 anes IF ,FLAGSCSET_DIR_CMD] : 
Bo a 8 Pt : 
: 749 ' Br%8 ! Check here to see if reiting he | is being treated. If so, ° 
; 750 074 ! then FLAGSCIN_ELLIPSE) will be to 1, and there's no need ; 
s 751 0748 ! to search and see if “—_ 3 traiting Oetlipse is present. However, $ 
; P36 ore? ! if the value is set to then get a new directory spec. ; 
: 754 ES IF NOT .FLAGSCIN_ELLIPSE) ! If not processing an ellipse 3 
3 £2? OF 88 i is ! then get the next directory : 
; 739 opez 4 atte _FABCFABSL_FNA FILE 8 ESCCDSCSA_POINTER); 3 
; £38 oF 32 2 OBJECT- FAB FABSB_ FNS -FILE_DESC DSC$W_ LENGTH; : 
; re 0757 2 ! Since this is a new entry, it must be checked for a trailing ellipse. : 
: 76 0759 4 CHSMOVE (. Fits ~pest DSC$W_LENGTH) ! Move this many chars : 
; 76 th 4 4 -FILE-DES CCOSCSA_ “POINTERS, ! From the CLI area r) 
; 764 761 4 Temp ing): i To the temp string 3 
3; 765 £06 4 STR_PTR = TEMP ING: i Set up pointer 3 
3 16 163 4 STRILEN = FILES bese bSC$W_LENGTH); i and Length. : 
; £08 169 ? ! Look for ellipses. : 
; 770 767 & WHILE NOT CHSFAIL (TEMP = CHSFIND_SUB ( STR LGM. gare PTR, : 
: on 768 4 na 3, UPLIT ¢*...7))) ; 
: 77 770 BEGIN : 
; 774 771 STR_PTR = .TEMP + 3; yodage pointer 3 
3 «775 Ak STR LEN = STR "LEN - (.TEMP = .STR pir) é 
He om 2 | 
: ore 775 4 ! After the fina q\lipse. check to see if it is at the end of the 3 
ee re 4 ! directory spec fication. If so, then change the context field of 3 
5 g : ee 2 i the fab, and insert an end bracket at the eginning of the ellipse. ‘ 
; 2 ¢ 8 5 if (.STR_PTR EQL TEMP_STRING + .OBJECT_FABLFABSB_FNS] -1) 3 
a. 780 : THEN 3 
a 7 BEGIN : 
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7 ; FLAGSCIN ELLIPSE) = 1; ! Show that there's railing ellipse 
f CHSWCHAR-(,.STR_PTR, .STR_PTR = 3); | Put the ene bracket n place 
OBJECT FABtFABSC ENA) = TEMP_STRING; up elds 
f 08 CT-FABCFABSB_FNS) = .STRIPTR = 3 = TEMP_ S1RING’® 1; 
g ; END 
7 ; ! If here, then the trailing ellipse has been Preceeeems and this is the 
f Y i second time thru. Restore the original file name 
73¢ ELSE 
ie BEGIN 
794 SO JECT AF ABEL ABSL FMA = PILE Desc EDscea pormread: ! Original filename 
13? OBJECT _FABLFABSB_FNS)] = .FILE_DESC DSCSW_LENGTHI; i Original Length 
194 FLAGSLIN_ELLIPSE] = 0; i Ellipse processed 
7 ° 
139 ! Parse the input string 
$01 ae INIT (NAM = RELATED_NAM); ! Re-init the RLF 
80¢ IF ([OBJECT_NAMCNAMSB_DEVJ NEQ 0) i If a device was 
th THEN’ ! specified, then 
0804 BEGIN 
8 05 OBJECT_FABLFABSL_DNA] = .OBJECT_NAMCNAMSL_DEV]; ! Make device sticky 
. OBJECT. FAB FABS$B_DNS) = .OBJECT_NAMLNAM$B_DEVJ; 
0 IF NOT (STATUS = SPARSE (FAB = OBJECT_FAB)) 
9 THEN : 
8 1 CCDOSCSW_LENGTH) = .OBJECT_FABCFABSB_FNS); 
1 DESCCDSCSA_POINTER) = .OBJECT_FABLFABSC FNA); 
081 FILE_ERROR™ (SETS. SYNTAX, OBJECT_FAB, STATUS, 0); 
0 ' END; 
0 1 ! Check the parsed string for apanter pe i.e. nothing after the directory 
081 IF (. Oasect _NAMCNAM$SB -NAne} NEQ 
081 Pattie A NAMSB_ TYPE} NEQ 
0 NAMCNAMSB_ vers NEQ 1 
6 ENBEGIN 
ios so = .OBJECT_FABCFABSB_FNS); 
DESCCDSCSA_POINTER] = .OBJECT FABLFABSC_F NAS; 
FILE_ERROR (SET$_SYNTAX, OBJECT_FAB, OSsS. BADIRECTORY, 0); 


END;~ 
! Determine what the directory terminator character was, and save it. 
ENDCHAR = .(.OBJECT_NAMCNAMSL_DIR] + .OBJECT_NAMCNAMSB_DIR) - 1); 


' The grepetery string must now be gnalyzed and manipulated so that the 
i tinal d rectory entry becomes a file. rst, initialize some pointers. 


DSC$W_LENGTH] = .OBJECT MAN HAns ESL]_- 
$k- INTER] = .OBJECT_N ARSC ESA); 
= scp pstss. BOINTERT: 
= SCCDSCSW-LENGTH); 
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; PTR = 0; 
EOS = .BDESCLOSCSA_POINTER + .DESCCDSCSW_LENGTH] -1; 
! Look for wildcard ellipses 


WHILE NOT CHSFAIL (TEMP = CHSFIND_SUB (.STRLLEN, .STR PTR, 
3, uPLit’¢*...7))) 


= Ww 
Win—Owo 


BEGIN 


Make PTR point to the beginning of the ‘’...'', and advance the string 
pointer to the character just past the ‘’..."' 


~ 


PTR = .TEMP; 
STR_LEN = .STR_LEN = (.TEMP = .STR_PTR) -3; 
STRIPTR = . TEMP + 3; 


If there was any occurrence of "'..."", point just past it. 
IF .PTR NEQ 0 THEN PTR = .PTR + 3; 
Find the Last directory in the specification 
WHILE NOT CHSFAIL ( TEMP = CHSFIND_CH (.STR_LEN, .STR_PTR, °.')) 
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was specified. If the pointer is at the bracket, then there is a 
trailing ellipse, in which case only a ‘’*’’ is required. 


IF .PTR EQL .E0S 
THEN 


864 
Bae? BEGIN 
86 ! Make PTR point to the ‘’."’, and advance the string pointer to 
ace ! the first character after the ‘'.” 
0890 PTR = .TEMP; 
0871 STR_LEN = .STR_LEN = (.TEMP - .STR_PTR) - 1; 
1h STR_PTR = .TEMP + 1; 
th END; 
$878 IF .PTR NEQ 0 
373 THEN 
fi BEGIN 
a) ! If here, then either a trailing ellipse, or a final sub-directory 
1 
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BEGIN 
CHSA_WCHAR ('«", PTR); ! Stick an asterisk after the bracket. 
cre = .PTR + 1; ! Adjust the pointer. 


! If the pointer is inside the bracket, then the last directory name 
! must be moved out of the brackets. 


ELSE 
BEGIN 
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3 ! Check to see if the directory is Cmain.sub] or Cmain...sub] 
If «PTR EQLU .STR_PTR 


SSs33 


! Cmain...sub] form 


SesosoRaes 


SF 


! end of Imain...sub] processing 
! Cmain.sub] form 


! end of Cmain.sub] processing 
! End of non-zero pointer stuff 


: i Mh tg : etitt sere. Enen Shore is either 4 ye eree a sete 
! ° m rectory. In all such cases, a main director 
! of £0000063 must Be febricated. 


he pointer i 
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4 

4 

4 

2 

2 STATUS = CHSFIND_CH (.STR_LEN, .STR_PTR, °."); ! Save for Later 
? ! Move the string out seven spaces and insert ''000000]'’ 
& 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
| 
6 
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STR_PTR = .DESCCDSCSA_POINTER] + .OBJECT_NAMCNAMSB DEV} + 1; 
TEMP = CHSMOVE (.E0S = .STR_PTR, .STR_PTR, .STR PTR + 7); 
STR PTR = CHSMOVE (6, UPLIT~('000000'S, .STR_PTR); 

CHSMOVE (1, ENDCHAR, .STR_PTR); 


! If no comma was found, then all that is required is to update the 
! pointer. 


IF CHSFAIL (.STATUS) THEN PTR = . TEMP 
! Otherwise, it's a Cg,m] directory. Convert it. 


ELSE 
BEGIN 


LOCAL TPARSE_BLOCK : SBBLOCKCTPASK_LENGTHO]; ! Define a TPARSE block 


CHSFILL (0, TPASK_LENGTHO, TPARSE_BLOCK); ! Ze 
TPARSE_BLOCKLTPASC_COUNT] = TPASK-COUNTO: i Fi 


Pee E Bt OCKE TPASL STRINGCHT = 
TPARSE _BLOCKLTPASL_STRINGPTR 
IF NOT(STATUS = LIBSTPARSE ( 
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PTR; 

s T 7; 
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iNew FILE_ERROR (SETS_SYNTAX, 0 AB, .STATUS, 0) 


BEGIN 
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: LOCAL TEMP_DESC : SBBLOCKCDSCSC_S_BLNJ; 
; TENE -DESCLDSC$U LENGTHS © 6; 
3 TEMP~DESC DSCSALPOINTER] = : 
3 Pp IF NOT (STATUS = SFAO ( EStRIETORG 12¢S0W) * ), 
3 P TEMP_DESC, 
; 961 P TEMP~DESC 
; 3 P .DIR“GROUP 
; -DIR“MEMBER) ) 
; THEN FILE_ERROR (SETS_SYNTAR, OBJECT_FAB, .STATUS, 0) 
3; 965 ELSE PTR = .STR_PTR +714; 
; END; 
; END; 
§ 8 END; 
; 969 PTR = ch ve (4, up IT (* DIR") 
: 970 OBJECT _FABLFABSB. FNS] = .PTR - .b stEpSeSa POINTER]; 
; 971 OBJECT. “FABLFABSL-FNA] = .DESCCDSCSA_POINTER); 
3 3i¢ 
3 are RETURN 1; 
; 976 097 END; ! End of routine GET_FILE 
-PSECT $PLIT$,NOWRT,NOEXE,2 
54 55 50 4E 49 OO2FO P.ACN: ASCII \INPUT\ ; 
002F5 -BLKB 
00000005 002F8 P.ACM: <LONG : 
00000000" 002FC “ADDRESS P.ACN : 
00 2€ 2€ 2€ 00300 P.ACO: ‘ASCII \...\<0> : 
00 00 30 30 30 5 6 5 80308 Praca, ASCH \000 900\<0><0> : 
oS 9 a HR WH ARMUR cata: caseHt Seg 7 
00000007 00318 P.ACR: <LONG 7 ; 
00000000' 0031¢ -ADDRESS P.ACS : 
52 49 44 2E 00320 P.ACT: <ASCII \.DIR\ ; 


~PSECT SOWNS,NOEXE ,2 
00 O14A8 FILE_DESC: 


BYTE 3 

8 14A9 BYTE 3 
14AA BYTE F 

0 O14AB BYTE 3 
O Q14AC BYTE 3 
QO O14AD BYTE 3 
0 O14AE BYTE 8 3 
O O14AF YTE 3 

SRMS_PTR= 


RELA 
“EXTRN SYSSPARSE, SYSSFAO 
.PSECT $CODES,NOWRT,2 
OFFC 00000 GET_FILE: 


vOe=000 iebet9gs Q9:98:92 YREC/D PLAS, Ssze 


.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 
SE CEC 9 3 OVAB a8 35 ae 
06 00° CF E BBC 1O(sPh 
00° CF BBS * FLAGS+1 3 
00" CF 13 1$: MOVB #3. * FILE DESC 
9000" CF 9F 0001 PUSHAB FILE DESC 
000° CF 9F 0001 PUSHAB P.ACM 
(00000006 09 ; 4 i CALLS Af LISGET_VALUE 
0294 5 A BRW 30$ 
000" CF 9000" CF p 002D 2$: MOVL  FILE_DESC+4, OBJECT pAgs44 
000° CF 000° CF 0 MOVB  FILEWDESC, eyecT. FRB 
03 000" CF : : 3$: BBS #6, FLAGS+1 
02 1 0004 BRW 29$ 
50 0000' cr DO 00044 4$ MOVL  FILE_DESC+4 
0000' cr 0 pd 049 MOVL RO, OBJECT_ on 
6 0000" CF O045 MOVZWL FILE DESC, FS, 
65 0000 CF 3 f 005 BBS #3, FLAGS+1 
0000" CF 6 0059 MOVB_ 6, OBJECT tab 
34 AE 0000° OF 6 é O05 MOVC3 R6, aFILE re oTEnP. STRING 
5A 34 AE 006 MOV TEMP_STRING, STR 
57 5 4 0069 MOVL Re. STR_LEN 
6A 57 0000" CF 0 : 0060 5$ MAT CHC 1 > P.ACO, STR_LEN, (STR_PTR) 
53 Q 0d 09078 MOVL o R3 
p 0078 6$: DECL 
5B 7 : 0007A MOVAW -(R3), TEMP 
OF 13 0007D BEQL 
SA 03 AB 4 007F MOV 3(R11), STR_PTR 
53 SA 58 C3 00083 SUBL TE STR PTR, R3 
57 FD A3h7 H 90087 MOVAB -3(R$)CSTR_LENJ. STR_LEN 
50 0000" CF 9A O08 7$ MOVZBL OBJECT 
50 33 AEGO 9E 0009 MOVAB TEMP Leh tee eR by, RO 
50 5A D1 00098 CMPL STR_PTR, RO 
2 iF 0098 NEG 9$ 
0000" CF 0 8 009D BISB2 a FLAGS+1 
51 FD AA : OOA2 V -3(STR PTR), R1 
61 6A 90 O00A6 MOVB (STR_PTR), (R1) 
0000" CF 4 AE 9E Q0A9 MOVAB TEMP STRING. ROBJECT. FAB+44 
50 4 AE SE OOOAF MOV TEMP~STRING, RO 
50 1 0083 SUBL2 RI, R 
0000" CF 01 0 : aoee SuBB a #1, OBJECT_FAB+52 
0000" CF j 0 8 8$: MOVB + OBJECT FABYS2 
0000" CF 0 BA C Bicee LAGS+ 
0060 8F 00 6E eonee C ce 9$: vC ’ (SP), #C, #96, SRMS_PTR 
0000' cf 099 St g0 0g MOVW #24578, os eal PTR 
0 000° cr 9A p MOV ZBL ECT 7, 
900° cr 0000° cr 3 aoe move a Ph anes, JECT_FAB+48 
0000" CF 9F OOOEC 10$:  PUSHAB 
000000006 00 gi 08 i CALLS é eles 
f 6E €8 OOOFA BLBS RO: STA Ws 
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| iS Be0-1984 00:03:80 Yate}? aL ing 32, 4.02742 
nspBgETACL at 


§ 
MOVZBW OBJECT. St+4 
; CE 98 000F MOVL OBJECT 
fe AD (Ooo FE be 00) BUSH STATUS a 
a4 AE 8D OO puSMAB OBIE 
re. SF BD 00} CALLS #4 FILE ERROR 
oo77iore br OD BOT se OBJECT _NAM+5 
01 0000" fF | : ; oe OB JECT.NARe61, "| 
' CF 1cA OL , DESC 
01 0000 32 j ! f 128 hovzeu ay tea ee DESC +4 
i] = 
OR HS a ihe He, cn 
F 
7E 0828, BF i sas PUSHAB w7803132 a 
o77i0re bf Pe Soler she. eject NARS 58. RO 
2 is ae e0 i ROVE. =TCROD> SoC esc 
0 0000" 0 0015p MOVZBW OBJECT NAM+11, 
rs AD 0000" cP ie 00168 sue Bieter, DESC +4 
F AD ‘ F pO 001 MOVL DESC+4, R 
$F hp bo oie ROVL RO, STA PIR 
BA a ut 00179 a RO, §TR_LEN 
50 p00 17D RL PT S 
a 38 DG 33189 novAB I RDLACP. STROLEN, (STR_PTR) 
FF Mee 86 O18? 148: AYR 4 
36 OF 2g 018 BEL 138 
57 0000" CF 03 «1 Bh MOVL #3, 
7 33 33 by OO193 158: Dect =(R3), TEMP 
tt a ne 
1 OVL . R, R 
58 : sb bs SUBL3 SRS) ESTR- LEWD. STR_LEN 
Sh to Se Oolal NOVAS 3(RIT), STREPTR 
08 AB 2F 901A BRB : 
= D5 OOIAC 168 ist, | (OTe 
93 OOIA Reor2 ows. PTR — 
Y BS ms: A 
6A ° be 90189 1 a 
> $3 Oolee Bear the PTR 
58 2 MOVL ‘ TR, _R3 
H " Ie mOvag ~1cRSESTR LEA), STR_LEN 
; yi iC MOVAB (RIT), STRUPTR 
53 , FF A34 MOVAB 
Git | ee a 
58 D5 0012 198 
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36 
16 ‘ “11 _Bliss-32 V4.0-74 Sones 4) 
1$-$ep-1964 7:95:82 EACLE SaeSse tate -e3e4 
SSETACL : 
ve-bb0 13 00104 Phet BTR, 0S os 
: Pune ie HE oss 
a 98 90108 HOVE Soe. CPTRD® ; | 
88 A 1£ BRB 24 , 
B D1 OO1ES 208: EMPL Big. STRPTR ; | 
5A 14 42 OO1E SUBL3 BIR, EOS, STR LEN : 
57 ; 35 iE nove3 STRALEN, (BIRT, 1(PTR) 
pt ha f ; 74h a MOVAB UgTALLENDCPTAI, PTR ; 
1A é ; 
11 001F9 BRB , EOS, STR_LEN : 
56 sh i Sire 2s: SS eihetan: (Pfins ; 
vs 38 6 BS 2B este ADDL2 —STR_LEN, PTR : 
: 2 4h 80508 228s: Pore bak. STR_LEN, (STR_PTR) 
A 57 5 73 bosoe 8? = obheg «58 Peal 
. Ba CLAL ORT 
31 6 00 10 238: 1 ; 0925) 
$6 0000" cr 9A 0001 MOVAB’ ACRODEROI, STR_PTR ; 0926 | 
SA 01 A049 96 0218 UBL STR_PIR, Eos, RQ : 
50 56 aA C3 00810 ave RO.~(STR_PTRS, (STR_PTR) — 
07 $5 53 ? bss8 MOVES ns: Praca (STR_PTR) : | 
a 33 BF oS MOV ENBCHART (STR_PTR 0983, 
6 A STATUS : 
= GF 3 09 § BNEG 358 
88 00 3A I | Be 0942 
6E 44 k : : 0945 
7 = 10 AE ° 6 09 3 #6 ort sth PTR. EOS: TPARSE BLOCK +8 : Boca 
18 AE 38 07 AA iE Oct MOVE RS; PARSE BLocKs'2 : 0947 
K ; 
en a : 
0000" CF OF 00258 PUSHAB TPARSE BLOCK : 
o§ Pe 00 ; CALS BS. LIES TPARSE ee 
000000006 00 50 B 6 é3 BLaC STAs, 8. ; 954 
08 AE Os 8 gf MOVE ORS. TEMPTDESE +4 9960 
OC AE 0 ie MOVG DIR GROUP, -(SP) : 
7E 0000" CF 7D PUSHAB TEMP_DESC : | 
0 AE $F O087C ESC | 
Ce a te 
0000" i ot 6 thie. a, SYSSFAO 
000000006 eP | 4 ! CBs «STATUS 37S : 0961 
6 268: CL mn ; 
Tr PUSHL STATUS 
8 ; ; JECT_FAB 
oos' ef oF PUSHAB 0B 


iSBee-19Rs 90:08:40 YANCdE 8Ltayase 1402242 reve it 


| 
i 
007710FC 8F DD 0029 SHL #780313 F 
0000v CF 4 re i CALLS fs IPE ERROR : | 
oF AA 4 A 37s: MOVAB (R10), PTR : 
0000" ¢F BO OOcAD 288: © HOVL, BACT tpTR)+ ; 366, 
0000" CF 3 63 SUBB3 «= R9, PTR, OBJECT_FAB+S2 + 096 | 
0000' cr D B MOVL = RO, OBJECT _FAB+Z4 : 368 
0 1 BO Bp 298: MOVL wi, R + 0971 
50 D4 002C1 308: CLRL =. RO t 0973 
04 00 3 RET ; : 


; Routine Size: 706 bytes, Routine Base: S$CODES + 07E7 
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; $15 ie i ROUTINE PROCESS_FILE = 
; 980 378 | te 

: 98) 3f$ 13 | 
; 9 : Me | FUNCTIONAL DESCRIPTION: 

: 3 980 1: This routine takes the spec from LIBSFILE_SCAN, and calls the 

3 + 83 1 ! } appropriate routine based upon the command Line qualifiers. 

: 98 09 5 1 | CALLING SEQUENCE: 

; 988 3 4 PROCESS_FILE 

: 390 9 : 1 | INPUT PARAMETERS: | 
3 a4 , : : none | 
; 398 cad oe $ 1 | IMPLICIT INPUTS: | 
Rie Ba 
; 996 0992 1 | OUTPUT PARAMETERS: 

: 398 §99e | i side | 
: 999 0995 1 | IMPLICIT OUTPUTS: 

Wo ibe 
: 1008 0998 1 |! ROUTINE VALUE: | 
: 100 0999 1! 1 if successful 
3 Oe 4 : H error code otherwise 

: 1006 1008 1 | SIDE EFFECTS: 

; 1007 1003 1! none | 
; 1008 1004 1! | 
: 1009 1005 1 i-= | 
: 1010 1006 1 

: 1011 100 BEGIN | 
: 1918 1909 LOCAL | | 
> 1014 1010 FILE_NAME : SBBLOCK CDSC$C_S_BLNI, ! File name to log | 
3 1015 1011 FAB : SFAB_DECL, ! Storage for the FAB | 
: 101 101 NAM : SNAM_DECL ! storaue for the NAMe block | 
: 1019 1018 XABDAT : $XABBAT_DECL, ! Date KAB storage 

: 1018 1014 XABPRO : $XABPRO- ECL, i Protection XAB storage | 
3 1019 1015 FILE CHAR : SBBLOCK te ° ' Target file characteristics 
: 1020 101 10_STATUS : VECTOR C4, WORD, i 1/0 status block 

: 1021 1 13 STATUS ' Local routine return status 

; 19 é i 18 STATUSI; i Second local routine exit status | 
: + : ' ? ! Open the the specified file. 

: HSFILL (0, 3 * ITMSS_ITEM, ATR_ARGLIST); 

: 1 $ 19 3 tate (NANSC. BEN -OBJECT_FABCFABSL_NAM), NAM); 
: 10 8 P 1024 2 SFAB_INIT (FAB = 

: 10 P 1025 FAC = <GEf, PUT>, 

Be BIR ian = uate 

1033 P 1099 NAB =_KABOAT) ; 

> 1034 P 1030 2 $XABDAT_INIT (XAB = XABDAT, 
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-Sep-1 ACLEDT.SRC 


NXT = XABPRO); 
SXABPRO_INIT (XAB = XABPRO): 


STATUS = SOPEN (FAB = FAB); 
! Set up the actual file name. 
CHSFILL (0, DSCSC_S_BLN, FILE_NAME); 


IF .NAMCNAMSB_RSLJ REG 6 
THEN 
BEGIN 
FILE _NAMECDSCSW_LENGTH] = ,NAMCNAMSB_RSLI; 
FILENAME DSCSA_POINTER] = .NAMCNAMSC_RSAI; 
ELSE IF .NAMCNAMSB_ESL] NEQ 0 
THEN 
BEGIN 
FILE_NAMEEDSCSW_LENGTH) = ,NAMCNAMSB_ESL]; 
FILENAME DSCSA-POINTER] = .NAMCNAMSC_ESA); 
ELSE 
BEGIN 
FILE_NAMEDSC$W_LENGTH] = .FABCFABSB_FNS); 
FILEINAME DSC$A-POINTER] = .FABLFABSC_FNAJ; 


! If there are any errors on the open, note them. 
IF NOT .STATUS 
THEN 
BEGIN 
! Jf the error is a “‘file locked by another user’ error and the file-id of the 
' source and tarket files match, simply ignore the error and go process the next 
! in line. Otherwise, note the error. 
IF sf ABEFARSL STS] NEQ RMSS$_FLK 


OR fHSNEQ (6, SOBJECT_NAMLNAMSW_FIDJ, 6, OBJECT_NAMLNAMSW_FIDJ, 0) 
THEN FILE ERROR (SETSOPENIN, FAB, .FABCFABSL_STSJ, .FABLFABSL_STV)); 


CHAN = .FABCFABSL_STV); 


' See if the file matches the criteria specified by the common command 
! qualifiers. 


IF NOT LIBSQUAL_FILE_MATCH 1 amb 


ESCRIPTOR (*ZSET-I-MODIFY, modify ACL on !AS [N]:"), 
REF (FILE NAME), 
) THEN RETURN 1; 

! Determine whether or not the target file is a directory file. 


ATR_ARGLISTCO, ITMSW_ITMCOD] = ATRSC_UCHAR; 
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; ATR_ARGLISTEO, I TMSu_BUF SIZ} = ATRSS_UCHAR; 
ATR ARGLI$1 ; ITMSL“BUFADR] = FILE_CHAR; 
P STATUS = $Q]0W (CHAN= .CHAN 
P FUNC = ios ACCESS, 
P 1986 = J0_STATUS 
P5 = ATR_ARGLISTS; 
098 IF .STATUS THEN STATUS =~.10_STATUSCOJ; 
IF NOT .STATUS 
THEN 
BEGIN 
SIGNAL (SETS_OPENIN, 1, FILENAME, .STATUS, 0); 
05 RETURN 1; ! Return without doing anything 
05 FLAGSCDIRECTORY) = .FILE_CHARCFCHSV_DIRECTORY); 


! If the /DEFAULT qualifier is being processed, make sure that the parent 
! directory of the current file is accessed on the source object channel. 


SESS 


GIN 
SIGNAL (SETS_OPENIN, 1, SDEVICE_DESC, .STATUS, 0); 
RETURN 1; 


! If there is already a directory accessed on the source object channel, and 
! the file-IDs are not the same, deaccess the directory file. 


\9 IF .FLAGSCQUAL_DEFAULT) 

\§ BEGIN 

14 ! If a channel has not been assigned to the source object, assign a channel 
i ! to the device for the parent directory. 
M7 IF .SCHAN EQL 0 
18 THEN 
1 BEGIN 

0 CHSFILL (0, DSC$C_S_BLN soevics DESC); 

1 SDEVICE_DESCCDSCS@_CENGTH) = . VECTOR ENAMCNAMST DVI], 0;, BYTE); 
¢ SDEVICE_DESCLDSCSA_POINTER] = NAMCNAMST_DVI] + T; 

STATUS = SASSIGN (BEVNAM = SDEVICE_DESC> CHAN = SCHAN) ; 

4 If NOT .STATUS 

5 THEN 

§ BE 

8 

9 

; 

5 


IF .SFILE_FIBCFIBSW_FID NUM) NEQ 0 
+ ag EG (FIBSS_FID, SFILE_FIBCFIBSW_FIDJ, FIBSS_FID, NAMCNAM$W_DIDJ, 0) 
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BEGIN 

P STATUS = $Q]0W (CHAN = .SCHAN 

40 P FUNC = 10$_DEACCESS, 

41 10SB = I0_STATUS); 

$5 IF .STATUS THEN STATUS = .10_STATUS(O); 

4 IF NOT .STATUS THEN SIGNAL (SETS_CLOSEIN, 1, SOBJECT_DESC, .STATUS, 0); 
rt} SFILE_FIBCFIBSW_FID_NUM] = 0; : To force access below 

48 ! Now release the read lock that was taken out for the directory file. 

48 ATR_ARGLISTCO, ITMSW_ITMCOD) = ACLSC_UNLOCK_ACL; 
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voese00 12-808 1382 99:98:32 «FANT Bk Sess 32,¥6-0:74 Pove 3} 
ATRARGLISTEQ. [TMS BUF SIZ] = 
ATR-ARGL List “Chan 3? ie LOCKID; 


STATUS = SCHANG 
= SOBJECT_TYPE, 
OB NAR = SOBJECT“DESC. 
ITMLST = ATR_ARGCIST): 
1F Not «STATUS THEN SIGNAL (SETS. CCOSEIN, 1. 


vuvuv 


SOBJECT_DESC, .STATUS, 0); 


! 1f there is not a directory file currently accessed, do so now. 
ies -SFILE_F IBLF IBSW_FID_NUM] EQL 0 
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W.DIDJ, SFILE_FIBCFIBSW_FIDI); 
OS: OR IOSM_ACCESS, 
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uw 
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*STATUSLO); 


LIBSF ID_TO_NAME cspevice DESC, SFILE_FIBCFIBSW_FIDJ, 
OBJE opis SOBJECT_DESC, 
‘ atte 
! Attempt to obtain a read lock for the source object. 
ATR_ARGLISTCO, ITM$W_ITMCOD) = ACLS$C_RLOCK_ACL; 
ATR_ARGLIST * ITM$W~ “BUFSIZ) = ACL$S"RLOCK_ACL; 
ATR-ARGLIST * TTMSL~ osm s = SAC 
STATUS = SCHANGE_A ACL = .SCHA 
oO Wp s 
= 
= 


A 
A 
S OCKID; 
S 
S 
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IF NOT .STATUS 
THEN 


BEGIN 
iF «STATUS EQL . $_ NOTQUEUED 
THEN SIGNAL (SET Basi OeKeD? 
EL Lor ste. (. STATUS) 
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! Attempt to obtain a write lock for the target object. 


4 
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¢ 
2! ! Get the file spec for the parent directory file, in case any errors occur. 
4 
4 
4 
4 
& 
4 
& 
4 
4 
4 
4 
4 
4 
4 
ie ATR_ARGLISTCO, ITMSW_ITMCOD] = ACLSC_WLOCK_ACL; 
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L_LOCKID; 
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ELSE IF .FLAGSCQUAL_DELETE N STATUS = DELETE_ACL (FILE_NAMED 
ELSE IF .FLAGSTQUAL_REPLACE] THEN STATUS = REPLACE_ACC (FILE_NAME) 
ELSE STATUS = ADD_ACL (FILE_NAME); 
! Now release the write lock that was taken out. 
ATR_ARGLISTCO, ITMSW_ITMCOD] = ACLSC_UNLOCK_ACL; 
ATR_ARGLIST(LO, ITMSW_BUFSIZ : 
» ITMSL ghey 


s 
ATR-ARGLIST € = ACL_LOCKID; 
= 


STATUS = SCHANGE_ACL~(C CHAN 
OBJTYP = OBJECT_TYPE, 


OBJNAM = FILE_N 
ITMLST = ATR_ARGLIST); 


! If logging is being done, indicate that the object has been modified. 


IF .FLAGSCQUAL LOG) AND .STATUS 
THEN SIGNAL (SETS_MODIFIED, 1, FILE_NAME); 


! Tie off the opened input file, if necessary. 
IF .STATUS 
THEN 


uw 


BEGIN 
STATUS = $Q10W (CHAN = . 
FUNC = | 
OSB = | 
Sz 


N 
E ERROR (SET$_CLOSEIN, FAB, .STATUS, 0); 
oe URN 1; 

TATUS = $DASSGN (CHAN = .CHAN); 
STATUS 
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! Call the necessary routine based upon “he command Line qualifiers. 
IF .FLAGSCQUAL_LIKE] OR CLASSE QUAL DEFAULT] THEN STATUS = COPY_ACL (FILE_NAME) 
| 
4 
| 
4 


ERROR (SETS$_CLOSEIN, FAB, .STATUS, 0); 
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1 RETURN 1; 
END; 

RETURN 1; 

END; ! End of routine PROCESS_FILE 
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-PSECT SPLITS,NOWRT ,NOEXE ,2 


0 2¢ 59 46 49 446 4F 4D 20 49 2D 54 45 53 25 00 P.ACV: .ASCII \%SET-I-MODIFY, modify ACL on !AS (NJ:\ 3 
$4 0 6 6F 20 4€ 43 41 20 79 «66 9 gs gf 60 0035 _™* fests : 
A 5D 4E 5B 20 53 41 0034 ; 

88 4 -BLKB ; 
Sst 034C P.ACU: .LONG 7 3 
00000000" 00350 »ADDRESS P.ACV 3 


-EXTRN SYSSASSIGN 

-PSECT S$CODES,NOWRT,2 
OFFC 00000 PROCESS_FILE: 

- WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 g 
5B 000000006 00 9€ 00002 AB SET$_O0BJLO O¢KEb, Rit” ; 
5a 000000006 00 9€E 00009 MOVAB Sy SSTHANGE A * R10 : 
59 000000006 00 9€E 00010 MOVAB SYS$Q10W, ag ; 
28 000000006 00 9€ 00017 MOVAB LIBSSIGNAL, R8 : 
5 0000' CF 9€ 0016 MOVAB WORST ERROR, R7 : 
5e FEBO ¢ 9E 000 MOV -336(SP), SP : 

24 00 6E saat 2¢ 00 : MOVCS #0, (SP). 30. #36, ATR_ARGLIST F 

0098 ce 3c «B? 0060 a 38 $09 0 MOVC3 #96, aOBJECT _FABs 40, NAM : 

0050 = 8F 0 bE ; 00 C 00039 mMovcS #0, (SP), #80, $RMS_PTR ; 
AS AD 5008 F BO 0004 MOVW #204 3 shns PTR : 

AC AD 01020009 F D0 0004 MOVL #1690888, SRMS_PTR+4 : 

8 AD 200 F 88 005 MOVW 4 hg Pm SRMS P TRF22 : 

(7? «AD 2 0096 MOVB PIRe oot : 

CC AD 6C AE 9E O005A MOVAB #2, $Kn S ShnS PTR+36 : 

DO =o AD 0098 ce E 0 5F MOV NAM, SRMS_PTR+4 F 

2c 00 6E 00 C 65 movcS #0, (SP),"#0, #44, SRMS_PTR 

$6 AE ach 8F BO 008 MOV #11282, SRMS PTR : 

0 AE 14 AE OF 00 MOVAB XABPRO srM “PTR+ : 

0058 = &F 00 6E ‘. 00 C 907 movcS #0, (SP), PrB8. SRMS_PTR : 
146 AE 5813 BF BO 000 move fia? SRMS_PTR ; 

000000006 90 } FB 09 CALLS SYSSOPEN 

08 00 6E - 00 Be 9 MOVCS no: § (SP), #0, #8, FILE_NAME 2 

50 0098 «CE ? 3h MOVZBL NAM+3, RO : 

of ; F BEQL 1$ § 

FB AD BO 000A1 MOVW RO, FILE_NAME : 
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DSSETACL 1 4 
vo 
FC OAD 009c «CE AS MOVL AM+4, FILE_NAME+4 : 1043 
ff i AB BRB - : 193 
50 00A3 i y 1$ MOVZBL NAM+11, RO + 104 
FB AD § B MOVW ORR FILE NAME 31 
FC AD O0A4 ce p BB MOVL AM+12, FILE_NAME+4 : 2 
FB AD pC OAD ep 2$: MOVZBW FAB+52, FILE_NAME : 1053 
ose Oy BR PB Oooca 38: Bees = Status’ Bee : 1089 
0001828A H B0 AD 8 CPL EAB 5+ bo 954 + 1067 
0088 (7 0380 (7 og D CMPC3 #6. SOBJECT_NAM+36, OBJECT_NAM+36 + 1068 | 
’ OODF BNEQ 3 : 
0376 OOE1 4$: BRW 4$ : 
7E 80 AD 7D OO0E4 5S: MOVQ FAB+8, =(SP) + 1069 
AS AD 9F OO0ES PUSHAB  F : 
0077109A _8F pp O0EB PUSHL #7803034 : 
0361 31 OO0F1 BRW 33 : 
0324 C7? B4 AD 00 OOOF4S 6$ MOVL FAB+12, CHAN 3; 107 
7E D4 OOOFA CLRL = + 107 
04 AE F8 AD 9E OOOFC MOVAB FILE_NAME, 4(SP) + 1082 
04 AE of 0101 PUSHAB 4(SP) 3 
0000' cr F 00104 PUSHAB P.ACU : 1081 
E Be 00108 LRL -(SP) ; 1078 
A8& A Ff Oot on PUSHAB FAB é 
0644 C7 OF 910D PUSHAB COMMON CTX : 
000000006 00 06 FB 00111 CALLS #6, LIBSQUAL_FILE_MATCH : 
C6 E9 00118 BLBC = RO, -4$ ; 
0648 C7 00030006 8F 00 00118 MOVL #§ #196612, ATR_ARGLIST + 1088 
0o4C (C7 04 AE 9E 00124 MOVAB FILE_CHAR, ATR_ARGLIST+4 + 1089 
7E 04 001 A CLRL  =(SPY + 1093 
0648 5 9F 0012C PUSHAB ATR_ARGLIST : 
E 7C 00130 CLRQ = = (SP) : 
7E 7 00132 CLRQ = = (SP) F 
7E 7C 001 CLRQ = = (SP) ; 
- 2C AE SF 00136 PUSHAB 19 STATUS : 
32 DD 00139 PUSHL #50 : 
0324 DD oi PUSHL CHAN : 
E D4 0013F CLRL (sp) ; 
69 C FB 0141 CALLS #12, SYS$QIOW : 
6 0 DO 00144 MOVL RO, STATUS : 
07 6 BY 0147 LBC = STATUS, 7$ + 1094 
6 0c AE O14, MOVZWL 10 status STATUS F 
OA 3 ES 0014 LBS STATUS, a$ : 1095 
i E D4 00151 7$: CLRL =(SP) : 1098 
56 DD 001 PUSHL STATUS ; 
F8 AD 01 PUSHAB FILE_NAME ; 
0139 31 00158 BRW 18$ : 
50 0S AE 01 5 EF 001 : 8$ EXTZV #5, #1, FILE CHAR+1, RO : 1101 
FD «A? 01 é 0 FO 16 INSV RO. #2, #1, FLAGS+1 ; 
3 FC OA : 167 BBS #6. FLAGS, 9$ > 1106 
01 1 0016C BRW 21§ : 
OSEC 3 16F 9$ TSTL ; HAN : 1113 
1 H BNEQ $ 3 
08 00 6E € 0017 MOVCS #0, (SP), #0, #8, SDEVICE_DESC : 1116 
OSF4 =C 17A : 


Ce 


FC FFSC 
nae es aah 
Bae e 
5F4 
000000006 58 
0608 
FF72 86D 0608 (7 
2c 
OS5EC 
H 
6 
07 
56 oc 
21 
0334 
00771052 
68 
02 67 03 
67 10771038 
688 
0648 C7? 000C oot 
064C (7 032C 
064 
334 
0330 
SEC 
6A 
56 
21 
0334 
00771052 
02 67 0 


67 10771052 
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10$: 


118: 
12$: 


= 
Ww 
wn 


148: 


4 00:02: AX-11 Bliss-32 V4.0-74 
138 90:03:30 ERCLEDT SREISETACL 832; 
MOV7BW NAM+ 0, SDEVICE_DESC 
MOVAB NAM+21, SDEVICE-DESC+4 
LRQ.s = (SP 
PUSHAB SCHAN 
PUSHAB SDEVICE_DESC 
CALLS #4, SYSSASSIGN 
MOVL RO STATUS 
BLBS STATUS, 10$ 
BRW 17$ 
TSTW SF ILE_F1B+4 
BEQL. 11 
CMPC3 #6, SFILE_FIB+4, NAM+42 
BNEQ 12$ 
BRW 15$ 
CLRQ  =(SP) 
CLRQ  =(SP) 
CLRQ  =(SP) 
CLRQ = =(SP) 
PUSHAB 10 STATUS 
PUSHL #52 
PUSHL  SCHAN 
CLRL isp) 
CALLS #12, SYS$QI0W 
OVL RO STATUS 
LBC = STATUS, 13$ 
MOVZWL 10 STATUS, STATUS 
LBS STATUS, 14$ 
CLRL =< SP) 
PUSHL STATUS 
PUSHAB SOBJECT_DESC 
PUSHL 
PUSHL #7802962 
CALLS #5, LIBSSIGNAL 
CMPZ2V #0, #3, WORST_ERROR, #2 
BGEQ 14 
MOVL  § #276238418, WORST_ERROR 
CLRW SFL “6 iBed 
MOVL #786436, ATR_ARGLIST 
MOVAB SACL LOCKID, ATR_ARGLIST+4 
CLRO 89 =( SF 
fral (SP) 
SHAB ATR_ARGLIST 
PUSHAB SOBJECT_DESC 
PUSHAB SOBJECT~TYPE 
PUSHL SCHAN 
CALLS #7, SYSSCHANGE_ACL 
VL RO STATUS 
BLBS STATUS, 15$ 
CLRL (SP) 
PUSHL STATUS 
PUSHAB SOBJECT_DESC 
PUSHL #1 
PUSHL #7802962 
CALLS #5, L {8 SIGNAL 
cMPzV ' #3, WORST_ERROR, #2 
MOVL De seesan WORST_ERROR 
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1 
AEDSSETACL hese -1984 00:02:30 AX-11 Bliss-32 V4.0-742 Page 47 
raed 1a-sep-19 4 00:08:30 ACLEDT.SRCJSETACL.B32;1 re 
0324 C7 DD 00321 PUSHL CHAN ; 
6A 07 FB 003 5 CALLS #7, SYSSCHANGE_ACL : 
56 20 b9 99 8 MOVL RO, STATUS : 
iA 6 €8 00328 BLBS STATUS, 25$ + 1208 
00000988 = BF 56 01 003 : CMPL STATUS, #2488 + 1211 
2 12 003 BNEQ 23$ : 
B DD 00337 228: PUSHL R11 + 1212 
68 01 FB 00339 CALLS #1, LIBSSIGNAL : 
50 6B 3 0033¢ MOVAB SETS OBJLOCKED, RC : 
33 50 € 00 3F BLAS RO : 
50 00000000" 60 9E 00342 MOVAB <SET$_OBJLOCKED&7>, RO : 
50 67 03 99 ED 00349 CMPZV #0, #3, WORST_ERROR, RO : 
18 0034E BGEQ 4 : 
67 00000000" 00 9€ 00350 MOVAB <SETS$_OBJLOCKED!268435456>, WORST_ERROR : 
1C 11 00357 BRB 24$ + 1211 
56 DD 00359 238: PUSHL STATUS + 1213 
68 01 FB 0035B CALLS #1, LIBSSIGNAL : 
14 56 £8 0035E BLBS STATUS, 24$ : 
5C 56 03 00 EF 00361 EXTZV #0, #3, STATUS, RO : 
50 67 03 00 ED 00366 CMP72V 4&0, #3, WORST_ERROR, RO : 
08 18 00368 BGEQ 24 : 
67 56 10000000 8F C9 0036D BISL3 #268435456, STATUS, WORST_ERROR : 
OOE2 31 00375 248: BRW 34$ + 1214 
05 . 02 £0 00378 25$: BBS #2, FLAGS, 26$ + 1219 
OA FC OA? 06 €1 0037D C #6, FLAGS, 27$ : 
F8 AD SOF 00382 268 PUSHAB FILE_NAME : 
0000v CF 01 FB 00385 CALLS #1, COPY_ACL 5 
26 11 0038A BRB : 
OA FC OAT 01 £1 0038C 278: BBC #1, FLAGS, 28$ : 1220 
F8 AD 9F 00391 PUSHAB FILE_NAM : 
0000v CF 01 FB 00394 CALLS 4, BELETE_ACL : 
17 11 00399 BRB : 
OA FC OAT 04 €1 00398 288: BBC #4, FLAGS, 29% + 1221 
F8 AD OF OO3A PUSHAB FILE_NAME : 
O000v CF 01 FB 003A3 CALLS #1, REPLACE_ACL 3 
08 11 003A8 BRB 30$ ; 
F8 AD OF OO3AA 298: PUSHAB FILE_NAME : 1222 
0000v CF 01 FB OO3AD CALLS #1, ADD_ACL 3 
56 50 pO 00382 30$: MOVL RO, STATUS 3 
0648 C7 000C0004 8F DO 00385 MOVL #786436, ATR_ARGLIST : 1227 
064C (C7 0S A? GE OO ae MOVAB ACL_LOCKID. ATR_ARGLIST+4 : 1228 
7E 7C 003C4 CLRQ. =(SP) : 1232 
7E 04 00366 CLRL -(SP) : 
0648 C7? OF 003¢8 PUSHAB ATR_ARGLISS : 
FB AD OF 003CC PUSHAB FILE NAME : 
08 A? OF OO3CF PUSHAB OBJECT_TYPE : 
0324 C7? DD 00302 PUSHL CHAN ; 
6A 07 FB 00306 CALLS #7, SYSSCHANGE_ACL ; 
56 50 00 00309 MOVL RQ. STATUS : 
30 FC OA? 03 £1 0030 BBC ° #3, FLAGS, 31% : 1236 
76 56 £9 003E1 BLBC STATUS, 34% ; 
F8 AD 9F OD3E4 PUSHAB FILE_NAME + 1237 
01 DD 003E7 PUSHL #1 ; 
000000006 00 9F 0039 PUSHAB SETS MODIFIED : 
68 03 FB OO3EF CALLS #3, CIBSSIGNAL 3 
50 000000006 00 9E O03F2 MOVAB SETS MODIFIED, RO ; 
15 50 €8 00379 BLBS RO, 31$ ; 
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aE DERE TACL 16-Sep at 138% 9 0:08: 3 AX-11 Blis Mae ; 


2 V4.0-742 Page 50 
ACLEDT. BR SETACL.B32;1 (6) 
C, «STATUS, 0); 


END; 

! For an insert, first locate the ACE after which the new ACEs will be added. 
IF .FLAGSCQUAL_AF TER] 

THEN 


BEGIN 
ACE POINTE 


TER = .OLD_ACE HEADLACEG L_FLINKI; 
CHSMOVE (. , SEBLOCKLACE POINTERCACEQ-T ACE), ACE$B_SIZE] 
ACE _POINTERCACEQ T_ACEJ, ACE); 
ATR_ARGLISTCO, ITM$W_ITMCOD] = ACLSC_FNDACLENT; 
ATR-ARGLISTCO, ITM$SW-BUFSIZ) = .ACECACE$B_SIZEJ; 
ATR-ARGLISTCO, ITMSL_BUFADR] = ACE; 
p STATUS = SCHANGE_ACL” (CHAN = .CHAN 
P OBJTYP = OBJECT_TYPE, 
Pp OBJNAM = OBJECT. NAME _DESC, 
P ITMLST = ATR_ARGCIST 
CONTXT = ACL ~CONTERTS 


IF NOT .STATUS 
THEN 


BEGIN 
SIGNAL (SET$_WRITEERR, 1, .OBJECT_NAME_DESC, .STATUS, 0); 
Be TUR SET$_QRITEERR OR S$TS$M_INHTB_MSG; 
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END 
3 IF LACE EACESB_. SIZE} EQL 0 
3 Then 
3 BEGIN 
35 IF .ACECACESW_FLAGS] NEQ SS$_ACLEMPTY 
36 THEN 
36 BEGIN 
36 SIGNAL (SETS _WRITEERR, 1, .OBJECT_NAME_DESC, .ACECACESW_FLAGSJ, 0); 
36 RETURN SET$_QRITEERR OR STSS$M_INHTB_MSG; 
36 END; 
36 END; 
36 ACL_CONTEXT = .ACL_CONTEXT + 1; 
e END; 
$9 ' Now that the context has been set, add the new ACEs. 
37 ACE_POINTER = .NEW_ACE_HEADCACEQ L_FLINK]; 
HY UNTTL ACE _POINTER "“EQLA NEW_ACE "AERDEACEQ: L_FLINKI 
37 BEGIN 
37 7 PE SHOVE om , SBBLOCKLACE POINTERCACEA T_ACEJ, ACE$B_SIZE), 
37 7 ACE j, ACE): 
377 7 ATR_ARGLISTCO, ITM$W ACL$C_ADDACLENT; 
378 7 ATR-ARGLISTCO, ITMSW” BUFSiz = MACECRCESB SIZE); 
379 7 ATR7ARGLISTCO, ITM$L “BUF ADR = ACE; 
380 Pp 137 STATUS = $CHANGE_ACL~ (CHAN = .CHAN 
381 Pp 137 OBJ Tye = OBJECT TYPE 
382 Pp 137 OBJNAM = .OBJECT_NAME_DESC, 
383 Pp 137 ITMLST = ATR_ARGCIST 
384 ? CONTXT = ACLCONTEXTS; 


F 1 
AEDSSETACL 16-Sep-1984 00:02:30 AX-11 Bliss-32 V4.0-742 Page 51 
ratty 12-Sep-1984 00:05:30 ACLEDT.SRCISETACL B32: 1 * a 
5 1385 1380 ; IF NOT .STATUS 
: 1386 1381 THEN 
: 1387 1 Be 4 BEGIN 
: 1388 138 4 IGNAL (SET$_WRITEERR .OBJECT_NAME_DESC, .STATUS, 0); 
: 1 89 84 4 RETURN SETS$_ORITEERR pr" §1S5$m_INHTB_MSG; 
; 1391 1386 3 ACE_POINTER = .ACE_POINTERCACEQ_L_FLINK]; 
: 4 3 1387 END; 
3; 139 1388 
: 1398 1 Gpeomtic, 
; 1396 1391 1 END; ! End of routine ADD_ACL 
03FC 00000 ADD_ACL:.WORD Sav g .R2. R3,R4,R5,R6,R7,RB,RI : 1266 
59 000000006 00 9€ 00002 HOVAB L 1BSSIG NAL, R9 : 
58 000000006 00 9€ 00009 MOVAB SYS$CHANGE_ACL, R8 ; 
57 0000' CF 9E 00010 MOVAB ACES R7 : 
FCA8S C7 D4 00015 CLRL ACL. CONTEXT + 1306 
48 F97C «C7 05 €1 00019 BBC #5 LAG + 1310 
C8 A7 OOO600FF 8F DO O00TF MOVL #393471, ATR_ARGLIST + 1314 
a 67 9E 00027 MOVAB ACE, ATR_ARGLIST+4 + 1315 
FCAS C7 9F 00028 PUSHAB ACL. CONT + 1320 
7E 7C 0002F CLRO <{SP) : 
C8 A? OF 00031 PUSHAB GLIST ; 
04 AC DD 00034 PUSHL OBE CT “NAR _DESC F 
F988 C7? 9F 00037 PUSHAB OBJECT-TYPE : 
FCAG C7 DD 00038 PUSHL (CH rte ; 
68 07 FB 0003F CALLS #7, SYSSCHANGE ACL : 
56 50 p00 00042 MOVL RO. STATU : 
iF 56 €8 00045 BLBS _— STATUS, 33 + 1321 
7E 04 00048 CLRL (SP) + 1324 
56 DD 0004A PUSHL STATUS ; 
04 AC DD 0004C PUSHL OBJECT_NAME_DESC : 
00771004 8F DD 0004F PUSHL #7803092 ; 
69 04 FB 00055 CALLS #4, LIBS$SIGN : 
04 F980 (C7 03 00 €D 00058 1$: CMP27vV #0, #3, DoRST + ERROR, ry ; 
03 19 00051 BLSS 2$ F 
OODE 31 00061 BRW 10$ ; 
00D2 31 00064 28: BRW ; 
6A F97C }=60C?_—s«E9 00067 38: BLBC FLA > 1331 
0200 (C7 O£E0C C7 DO 0006C MOVL Sete HEAD. ace _POINTER : 1334 
50 0200 ¢7 DO 00073 MOVL ate “POINTE + 1335 
51 08 AO 9A 00078 MOVZBL 8(RO), RI ; 
67 08 AO 51 28 0007C Ovc3 Ri, 8(RO), ACE + 1336 
CA AZ 04 80 00081 OVW #4. ATR _ARGLIST+2 > 1337 
(8 OA? 67 98 00085 MOVZ7BW ACE, ATR_ARGLIST : 1338 
CC A? 67 9E 00089 MOVAB ACE, ATRTARGLIST+4 > 1339 
FCAB C7 9F 0008D PUSHAB ACL CONTEXT + 1344 
7E 7¢ 00091 CLRO ds ; 
(8 «OA? OOF 0095 PUSHAB GLIST : 
04 AC DD 00096 PUSH OBJECT NANE_DESC ; 
F988 C7? 9F 00099 PUSHAB OBJECT"TYPE ; 
FCAS ¢7 DD 0009D PUSHL CHA ; 


1 
AEDSSETACL 18-sep-19 4 00:02:30 AX-11 Bliss-32 V4.0-742 Page 52 
yon 000 14-Sep-1984 90:95:32 ACLEDT.SRCIJSETACL.B32;1 9 8) 
68 07 FB OO0A1 CALLS #7, SYS$CHANGE_ACL : 
56 0 09 OOA4 MOVL RO, STATUS ‘> ; 
14 6 E8 OO00A7 BLBS STATUS, + 1345 
E D4 OOOAA CLRL =(SP) + 1348 
56 DD OOOAC PUSHL STATUS : 
04 AC DD OOOAE 4S: PUSHL OBJECT_NAME_DESC : 
071 DD 00081 PUSHL #1 : 
007710D4 8F DD 00083 PUSHL #7803092 : 
69 0S FB 00089 CALLS #5, LIBSSIGNAL : 
9A 11 000B8C BRB : 
67 95 OOOBE 5$: TSTB = ACE + 1351 
10 12 90¢9 BNEQ 6$ : 
0900 BF 02 A? 61 000C2 CMPW 3s ACE #2, #2512 + 1354 
08 13 000C8 BEQL ©=-«6$ : 
7E p OOOCA CLRL  =(SP) : 1357 
7E 02 aA? 3C 000CC MOVZWL ACE+2, (SP) : 
DC 11 00000 BRB 4$ : 
FCAB C7 D6 000D2 6$: INCL ACL_CONTEXT + 1361 
0200 C7 0£14 C7 DO 00006 7$: MOVL § NEWTACE_HEAD, ACE_POINTER > 1366 
50 0200 C7 DO 000DD 8$: MOVL ACE-POINTER, R + 1367 
51 OE14 C7 99E 000E2 MOVAB NEW ACE_HEAD, R1 : 
51 50 D1 000E7 CMPL RO, -R1 : 
67 13 OOOEA : 
51 08 AO 9A OOODEC MOVZBL 8(RO), R1 : 1370 
67 08 AO 51 28 000FO 3 R1, 8(RO), ACE + 1371 
CA A? 01 BO 000F5 #1. ATR_ARGLIST+2 : 1372 
(8 AZ 67 9B 000F9 MOVZBW ACE, ATR_ARGLIST : 1373 
CC A? 67 9E O00FD MOVAB ACE, ATR-ARGLIST+4 > 1374 
FCA8 C7 9F 00101 PUSHAB ACL_ CONTEXT : 1379 
7E 7C 00105 CLRQ = = (SP) ; 
C8 A? 9F 00107 PUSHAB ATR_ARGLIST : 
04 AC DD OO10A PUSHL OBJECT_NAME_DESC F 
F988 C7? OF 0010D PUSHAB OBJECT-TYPE ; 
FCA4 C¢7 DD 00111 PUSHL (CHA ; 
68 07 FB 00115 CALLS #7, SYS$CHANGE_ACL ; 
56 50 pO 00118 MOVL RO, STATUS : 
2c 56 £8 00118 BLBS STATUS, 11$ > 1380 
7E D4 OO11E CLRL (SP) : 1383 
56 DD 00120 PUSHL STATUS ; 
04 AC DD 00122 PUSHL OBJECT_NAME_DESC : 
01 DD 00125 PUSHL : 
00771004 8F DD 00127 PUSHL #7803092 F 
69 05 FB 0012D CALLS #5, L1BSSIGNAL ; 
04 F980 C7 03 00 ED 601 0 CMP2V #0. #3, WORST_ERROR, #4 : 
09 18 00137 BGEQ 10 F 
F980 C7 10771004 &8F DO 00139 9$: MOVL  #276238548, WORST_ERROR ; 
50 10771004 BF pO 00142 10$: mOVL #276238548, RO > 1384 
0200 (C7 0200 07 DO 0014A 11$:  MOVL  @ACE_POINTER, ACE_POINTER + 1386 
8A 11 00151 BRB ag > 1367 
50 01 00 00155 12$:  MOVL #1, RO : 1389 
04 00156 RET > 1391 


; Routine Size: 343 bytes, Routine Base: $CODE$ + OFO9 


H 1 
sat IESEgHOM PRGA WADERS Pome 
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FUNCTIONAL DESCRIPTION: 


This routine deletes one or more ACEs (or the entire ACL) from 
the specified object. 


CALLING SEQUENCE: 
ADD_ACL (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the FAB 


IMPLICIT INPUTS: 
none 


SSSSSS 
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CESS wb ASIA DO UP OE UNC OSENOOF UNH ODO NORE UN OODD ee RRS 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
f successful — 
error code otherwise 


SIDE EFFECTS: 
none 


BEGIN 


LOCAL : 
STATUS; ' Local routine return status 


! If there were ACEs given on the /ACL ag Mp just those specified ACEs 
! are deleted. Otherwise, the entire ACL is deleted. 


ol -OLD_ACE_HEADCACEQ_L_FLINK] NEQA OLD_ACE_HEADCACEQ_L_FLINK] 
BEGIN 
! Before deleting any of the given ACEs, make sure that they all exist. 


ACE_ POINTER = .OLD_ACE_HEADCACEQ L FL INK): 
UNTTL -ACE_POINTEREQLA OLD_ACE_READCACEQ_L_FLINK] 
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BEGIN 
CHSMOVE (.$BBLOCKCACE_POINTERCACEQ_1 ACE], ACESB_SIZE), 
ACE_POINTERCACFQ 1 ACE), ACE); 
ATR_ARGLISTCO, ITM$W_ITMCOD] = ACL$C_FNDACLENT: 
ATR-ARGLISTCO, ITM$WTBUFSIZ] = .ACECACE$B_SIZE); 
ATR-ARGLISTCO. ITM$LBUFADR) = ACE; 
7 STATUS = $SCHANGE_ACL™ (CHAN = .CHAN, 
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16-Sep-1984 00: 0 AX-11 Bliss-32 V4.0-742 
14- set 7 % £0: 32 ACLEDT.SRCISETACL .B32:1 
; 121g 1306 ! Delete any ACL that currently exists on the object. 
5 1§14 1508 ATR_ARGLISTCO, ITMS$W_ITMCOD] = ACLSC_DELETEACL; 
> 1515 1509 ATR “ARGLISTEO. 1TM$W rt = ACL$S-DELETEACL; 
: 1516 1510 ATR-ARGLISTLO, TMSL “BUFADR] = cE; 
: 1917 Pp 1511 STATUS = SCHANGE_A = .CHAN 
: 1518 P 1318 i = OBJECT 
: 1519 P 151 SBN = .0 Hts Vaane DESC, 
: 1520 P 1514 1™™ ier = ATR_ARGCIST 
> 1521 1515 CONTXT = ACL CONTEXTS; 
: 13 é 1516 IF NOT .STATUS 
: 1 1517 THEN 
: 1524 1516 4 BEGIN 
> 1525 1519 4 SIGNAL (SET$_WRI ERR .OBJECT_NAME_DESC, .STATUS, 0); 
> 1526 1520 4 RETURN SET$_ORIT RoR §1S$M_INHTB_MSG; 
: 1527 1521 3 END; 
: 1528 15 7 2 END; 
: 13¢9 152 - 
: 1530 1524 2 RETURN 1 
: 1531 1525 2 
3; 1532 1526 1 END; ! End of routine DELETE_ACL 
.PSECT $PLIT$,NOWRT,NOEXE,2 
OD 00354 P.ACX: .ASCII <13> F 
OA 00355 “ASCII <10> ; 
00356 -BLKB 2 
00000002 00358 P.ACW: .LONG 2 : 
00000000" 0035¢ “ADDRESS P.ACKX F 
.EXTRN SYSSFORMAT_ACL 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 DELETE_ACL: 
<WORD Save R2,R3,R4,R5, hs R7,R8,R9,R10,R11 : 1392 
5B 000000006 00 9€ 00002 MOVAB  SET$_NOSUCHACE F 
5a 000000006 00 9E 00009 MOVAB LIBSSIGNAL, ; 
59 000000006 00 9€ 00010 MOVAB SYS$CHANGE_ACL, R9 ; 
58 0000" CF i 00017 MOVAB ACE_POINTER, R& : 
SE 08 C2 0001C SUBL2 #8, SP F 
56 04 Ac pO O001f MOVL OBJECT_NAME_DESC, R6 : 1452 
50 OcOC CB 9E 00023 MOVAB OLD_ACE_HEAD, + 143 
50 OCOC CB D1 00028 CMPL  OLDTACE“HEAD, RO F 
03 12 0002D BNEQ 1$ ; 
0140 31 999 F BRW 13$ ; 
ra: ococ C8 DO 000 : 1$: MOVL § OLD_ACE_HEAD, ACE_POINTER + 1439 
50 68 DO 00037 2$: MOVL  ACETPOIATER, RO > 1440 
51 OCOC CB YE O003A MOVAB OLD"ACE_HEAD, R1 F 
51 50 D1 0003F CMPL = RO, “RI : 
03 12 00042 BNEG 3$ ; 
00E0 31 80044 BRW $ ; 
51 08 AQ 9A 00047 38: MOVZBL 8(RO), R1 + 1443 
FEOO §=«C8B 08 Ao 51 28 00048 OvC3 R1, 8(RO), ACE > 1444 
FOCA (8 04 B0 00052 OVW #4, ATR_ARGLIST#2 > 1445 


Kk 1 
AEDSSETACL 16-Sep-1984 00:02:30 AX-11 Bliss-32 V4.0-74 Page 56 
rivet 1a-sep-19 4 90:95:32 ACLEDT. SRC ISETACL B32: . 3 
FDCB C8 FEOO «CC 98 0057 MOV7BW ACE, ATR_ARGLIST : 144 
Focc sé FEO) (8 9E 0055 MOVAB ACE, ATRARGLIST+4 + 144 
FAA § 9F 0006 PUSHAB ACL_CONTEXT 3: 1452 
; 7C 00069 CLRQ—s_ = (SP) : 
FOCB §3=6C8 «OF 00068 PUSHAB ATR_ARGLIST : 
36 DD O06F PUSHL : 
F788 CB 9F 00071 PUSHAB OBJECT_TYPE : 
FAAG C8 DD 00075 PUSHL CHA : 
69 9 FB 90079 CALLS #7, SYS$CHANGE_ACL : 
57 ; DO 0007¢ MOVL RO, STATUS : 
03 § 59 0007F BLBC TATUS, 4$ + 1453 
009¢ 1 00082 BRW : 
000009D0 = &F 57 D1 00085 4$: CMPL TATUS, #2512 + 1456 
28 13 0008C BEQL : 
00000908 = &F 7 oi 0008E CMPL STATUS, #2520 + 1457 
iF 13 000 BEQL «6s 7$ : 
7E pb 00097 5$: CLRL = = (SP) + 1460 
7E 56 7D 00099 MOVO Rb, =(SP) : 
01 pd 0009C PUSHL ; 
00771004 8F DD 0009E PUSHL #7803092 ; 
6A 05 FB O00A4 CALLS #5, LIBSSIGNAL : 
04 F780 CB 03 00 ED 000A7 CMP7V #0, #3, WORST_ERROR, #4 : 
03 19 OOOAE BLSS = 6$ ; 
0118 31 00080 BRW 15$ : 
010F 31 000B3 6$: BRW 14$ ; 
50 68 DO 00086 7$. MOV ACE_POINTER, RO + 1463 
FOF8 C8 08 AO 98 00089 MOVZBW 8(RO), ACE_DESC 3 
FDOFC C8 08 AO 9E 000BF MOV 8(RO), ACE~DESC+4 + 1464 
06 AB 0cOO }§=6 BF_-SC#wdwBOD: 0005 MOVW #3072, ACE-TEXT_DESC + 1465 
08 AB OC A8 9E 000CB MOVAB ACE TEXT, ACE_TEXT_DESC+4 : 1466 
7E D4 00000 CLRL =_ = (SP) + 1472 
08 AE 04 00 00002 MOVL #4, &(SP) : 
08 AE 9F 00006 PUSHAB 8(SP) : 
0000" CF 9F 00009 PUSHAB P.ACW : 
OC AE 50 8F 9A 000DD MOVZBL #80, 12(SP) F 
OC AE 9F OO0E2 PUSHAB 12(SP) : 
04 AS 9F OOOES PUSHAB ACE_TEXT_DESC ; 
04 A& 9F O00E8 PUSHAB ACE-TEXT “DESC : 
FDF8 C8 9F OOOEB PUSHAB ACEDESC ; 
000000006 00 07 FB OO0EF CALLS #7, SYSSFORMAT_ACL ; 
04 AB 9F O00F6 PUSHAB ACE_TEXT_DESC > 1473 
56 DD 000F9 PUSHL R6 : 
02 DD 000FB PUSHL #2 ; 
; 5B DD 000FD PUSHL R11 ; 
6A 04 FB OOOFF CALLS #4, LISSSIGNAL ; 
50 68 E 00102 MOVAB SETS _NOSUCHACE, RO ; 
19 50 £8 00105 BLBS RO ; 
50 00000000" 00 9E 00108 MOVAB <SET$_NOSUCHACE&7>, RO ; 
50 F780 CB 03 99 ED O10F CMP ZV #0, #3, WORST_ERROR, RO F 
F780 C8 00000000* 00 9€E O118 MOVAB  <SET$_NOSUCHACE !268435456>, WORST_ERROR : 
78 98 06 0121 8$: MOVL § @ACE_POINTER, ACE_POINTER > 1475 
FFI0 31 00124 BRW $ > 1440 
68 ococ C8 b6 0127 9$: MOVL § OLD_ACE_HEAD, ACE_POINTER > 1480 
50 68 p O10C 10$:  MOVL ACE“POIRTER, RO > 1481 
51 0coc c8 F 012F MOVAB OLD-ACE HEAD, R1 ; 
51 50 D1 00134 CMPL = RO, ~R1 ; 


1 
AEDSSETACL 1b-se -1984 00:02:30 AX-11 Bliss-32 V4.0-74 Page 57 
rhe tt 12-8 08-1 ope 90:95:30 ACLEDT.SRCISETACL B32; ’ F 
93 12 137 BNEQ «11 F 
009A 139 BRW 16$ : 
51 08 AO 9a 0013¢ 118: mOVZBL 8(RO), RI + 1484 
FEOO «CB 08 Ao 51 28 0014 MOVCS R1, 8(RO), ACE + 1485 
FDCA C8 0g BO 0014 OVW #2. ATR_ARGLIST+2 + 1486 
FoCB.SC FEOO C8 9B O14¢ MOVZBW ACE, ATR_ARGLIST + 1487 
FDCC = CB FEOO C8 9— 001 VAB ACE. ATRTARGLIST+4 + 1488 
FAAB 5 oF O15A PUSHAB ACL_CONTEXT : 1493 
E C 0015€ CLRO 0 = (SP) : 
FDCB ¢ 9F 00160 PUSHAB ATR_ARGLIST : 
6 po 0164 PUSHL : 
F788 ce F 00166 PUSHAB OBJECT_TYPE : 
FAAS C DD OO16A PUSHL HA s 
69 07 FB 0016E CALLS #7, SYSSCHANGE_ACL : 
57 0 pO 00171 MOVL RO, STATUS : 
03 57 ES 00174 BLBS STATUS, 12$ + 1494 
FFID 31 00177 BRW : 
78 98 DO 0017A 12$:  MOVL  @ACE_POINTER, ACE_POINTER + 1500 
AD 11 0017D BRB $ + 1481 
FDC8 C8 OOO6OOFF BF DO OO17F 13$: MOVL #393471, ATR_ARGLIST : 1509 
FDCC «= FEOQO CB 9E 00188 MOVAB ACE, ATR_ARGCIST+4 + 1510 
FAAS CB OF 0018F PUSHAB ACL. CONTEXT + 1515 
7E 7C 00193 CLRQ = =( SP) : 
FDCB CB 9F 00195 PUSHAB ATR_ARGLIST ; 
56 DD 00199 PUSHL ; 
F788 CB 9F 0019B PUSHAB OBJECT_TYPE : 
FAAG C8 DD 0019F PUSHL (CH : 
69 07 FB 001A3 CALLS #7, SYSSCHANGE_ACL 3 
57 50 DO 001A6 MOVL RO. STATUS ; 
2A 57 €8 OO1A9 BLBS STATUS, 16$ + 1516 
7E 04 OO1AC CLRL =—_ = (SP) + 1519 
7E 56 7D OO1AE MOVG 6, =(SP) : 
01 pdD 00181 PUSHL # F 
00771004 8F DD 00183 PUSHL #7803092 : 
6A 05 FB 001B9 CALLS #5, LIBS$SIGNAL ; 
04 F780 C8 03 00 ED 001BC CMPZV #0, #3, WORST_ERROR, #4 : 
09 18 001C3 BGEQ ~=s«é15$ ; 
F780 C8 107710D4 BF DO 001C5 14$: MOVL  #276238548, WORST_ERROR ; 
50 107710D4 8F DO OO1CE 15$: MOVE  #276238548-, RO : 1520 
04 00105 RET ; 
50 01 DO 001D6 16%:  MOvL #1, RO + 1524 
04 00109 RET > 1526 


; Routine Size: 474 bytes, Routine Base: $CODE$ + 1060 
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ROUTINE REPLACE_ACL (OBJECT_NAME_DESC) = 
tee 
FUNCTIONAL DESCRIPTION: 


This routine deletes the indicated ACEs, and then replaces them 
with the new ones specified on the /REPLACE qualifier. 


CALLING SEQUENCE: 
ADD_ACL (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the FAB 


IMPLICIT INPUTS: 
none 
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OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error code otherwise 


SIDE EFFECTS: 
none 
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6 oo 

269 BEGIN 

568 

569 LOCA 

570 OLD_ACLCTX, ! Old ACL context 
a7 6 STATUS; ' Local routine return status 
338 6 ! Before deleting any of the given ACEs, make sure that they all exist and 
574 6 ' the order is correct. 

575 6 

576 6 OLD_ACLCTX = 0; 

577 7 ACE-POINTER = .OLD_ACE_HEADCACEQ L 4dte 

278 4 tat ACE _POINTE ERE OER OLD_ACE "AERD Hat L_LFLINKI 

580 7 

581 7 CEQ_T ACE], ACE$B_SIZEJ, 

286 7 ACE], ACE); 

58 7 ATR _ARGLIST 0° 1 iasu if ac 5 = ACL$C_FNDACLENT; 

584 7 ATRARGLISTCO, ITM$W~BUFSIZ) = MACELRCESB SIZE); 

585 7 ATR™ ARGLIST 0, ITM$L BUF ADR J = ces 

206 P 7 STATUS = SCHANGE JACL™ (CHAN = .CH 

58 P 158 OBJTYP = OBJECT 

588 P 158 OBJNAM = Pa IECT riané _DESC, 

589 P 158 ITMLST = ATR ARGCIST 

590 8 CONTXT = ACL ~CONTERTS : 
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B 2 
16-Sep-1984 00:02:30 AX-11 Bliss-32 V4.0-742 Page 60 
aoe 7 00:08:30 ACLEDT.SRCJSETACL.B32;1 ’ (8) 
THEN | 
BEGIN 
SIGNAL (SETS_WRITEERR, 1, .OBJECT_NAME_DESC, .STATUS, 0); 
RETURN SETS_QRITEERR OR STS$M_INHTB_MSG; 
IF .ACECACESB_SIZEJ EQL 0 
THEN 
BEGIN 
IF .ACECACESW_FLAGS] EQL SS$_ACLEMPTY 
THEN EXITLOOP 
ELSE 
BEGIN 
SIGNAL (SETS _WRITEERR, 1, .OBJECT_NAME_DESC, .ACELACESW_FLAGSI, 0); 
RETURN SETS_ORITEERR OR STS$M_INHTB_MSG; 
END; 
ACE _POINTER = .ACE_POINTERCACEQ_L_FLINK]; 


! Add the new ACEs specified on the /REPLACE qualifier. 


ACE POINTER = .NEW_ACE_HEADCACEQ L_FLINK); 
UNTIL »ACE_POINTER EQLA NEW_ACE_READCACEQ_L_FLINKI 


BEGIN 
CHSMOVE (.$BBLOCKCACE_POINTERCACEQ_T ACE], ACE$B_SIZEJ, 
ACE_POINTEREACEQ T_ACEJ, ACE); 
ATR_ARGLISTCO, ITMS$W_ITMCOD] = ACLS$C_ADDACLENT; 
ATRARGLISTCO, ITM$W~BUFSIZ] = .ACECACESB_ SIZE); 
ATR-ARGLISTCO, ITMSL-BUFADR] = ACE; 


STATUS = $CHANGE_ACL™ (CHAN = .CHAN, 
OBJTYP = OBJECT_TYPE, 
OBJNAM = .OBJECT_NAME_DESC, 
ITMLST = ATR_ARGCIST, 
CONTXT = ACL_CONTEXT); 


IF NOT .STATUS 

THEN 
BEGIN 
SIGNAL (SET$_WRITEERR, 1, .OBJECT_NAME DESC, .STATUS, 0); 
RETURN SETS_ORITEERR OR STS$M_INHTB_MSG; 

ACE _POINTER = ,ACE_POINTERCACEQ_L_FLINKI; 
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RETURN 1; 
END; 


End of routine REPLACE_ACL 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


0D 00360 P.ACZ ASCII <13> : 
OA Op aes ASCII = <10> ; 
00362 BLKB 2 
00000002 00364 P.ACY: .LONG 2 ; 
00000000° 00368 ADDRESS P.ACZ 2 
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dD 2 
AEDSSETACL 16-Sep-1984 00:02:30 AX-11 Bliss-32 V4.0-742 Page 62 
y52000 1a-8ep-19 4 90:98:30 ACLEDT.SRCISETACL B32: 1 9° 6B) 
OC AE 50 8F 9A OOOCA MOVZBL #80 12(SP) : 
OC AE 9F OOOCF PUSHAB 12(5P) : 
04 Ad OF 000¢ PUSHAB ACE_TEXT_DESC : 
04 Ad 9F 0000 PUSHAB ACE-TEXT-DESC ; 
FDF8 C9 9F 000D8 PUSHAB ACE “DESC : 
000009006 00 07 FB d00¢ CALLS #7, SYSSFORMAT_ACL : 
| 04 Ad OF OO0DE PUSHAB ACE_TEXT_DESC + 1604 
56 DD 000E6 PUSHL RS ; 
02 DD 000E8 PUSHL # : 
000000006 00 9F OOOEA PUSHAB SET$_NOSUCHACE ; 
6A 04 FB OOOFO CALLS #4, CIBSSIGWAL : 
50 000000006 00 4 OO0FS MOVAB SET$_NOSUCHACE, RO : 
19 0 €8 OOOFA BLBS ; 
50 00000000* 00 9SE 000FD MOVAB <SET$_NOSUCHACES7>, RO : 
50 F780 §=6C9 03 00 ED 00104 CMPZV #0, #3, WORST_ERROR, RO 3 
09 18 00108 BGEQ =: &$ ; 
F780 C9 00000000" 00 9E 0010D MOVAB <SET$_NOSUCHACE !268435456>, WORST_ERROR : 
| 50 00000000* 00 3 00116 8$: MOVAB <SETS~NOSUCHACE !268435456>, RO : 1605 
58 DS OO11E 9S: TSTL OLD_ACLCTX + 1610 
46 13 00120 BEQL ~=s«é118 : 
50 58 18 00 EF 00122 EXTZ2V #0, #24, OLD_ACLCTX, RO + 1613 
50 06 00127 INCL R 5 ; 
FAA8 C9 50 D1 OOS? CMPL RO, ACL_CONTEXT : 
38 13 O012E BEQL 11§ ; 
56 DD 00130 PUSHL R6 : 1616 
01 DD 00132 PUSHL #1 : 
| 000000006 00 9F 00134 PUSHAB SET$_IVORDER F 
6A 03 FB 0013A CALLS #3, CIBSSIGNAL 3 
50 000000006 00 9€ 0013p MOVAB SETS$_IVORDER, RO F 
19 50 £8 00144 BLBS _—RO, ; 
50 00000000* 00 9E 00147 MOVAB <SET$_IVORDER&7>, RO : 
50 F780 C9 03 00 ED O014E CMPZV #0, #3, WORST_ERROR, RO 3 
09 18 00155 BGEQ =: 108 | ; 
F780 C9 00000000* 00 9€ 00157 MOVAB  <SET$_IVORDER!268435456>, WORST_ERROR : 
| 50 00000000* 00 3 00160 10$: MOVAB <SETS~IVORDER! 268435456>, RO : 1617 
58 FAAS C9 DO 00168 11$:  MOVL ACL_CONTEXT, OLD_ACLCTX + 1620 
| 79 99 B09 0016D MOVL  @ACE_POINTER, ACE_POINTER ; 1621 
FEBO 31 00170 BRW 1$ > 1571 
69 Ococ C9 DO 00173 12%:  MOVL OLD_ACE_HEAD, ACE_POINTER : 1626 
50 69 DO 00178 13$:  MOVL ACE-POINTER, RO + 1627 
51 Ococ C9 9E 00178 MOVAB OLDTACE_HEAD, R1 : 
51 50 01 00180 CMPL = RO, “RI ; 
5¢ (13 00183 BEQL «+16 $ F 
51 08 AO 9A 00185 MOVZBL 8(RO), RI > 1630 
FEOO C9 08 Ao 51 28 00189 OVC3 R11, 8(RO), ACE > 1631 
FDCA C9 02 80 00190 MOVW #2. ATR_ARGLIST+2 > 1632 
| FDCB «C9 FEOO § C9 9B 00195 MOVZBW ACE, ATR_ARGLIST : 1633 
FDCC «=O FEOQO § (C9 SE 0019C MOVAB ACE, ATRTARGLIST+4 + 1634 
FAAS C9 QF OO1A3 PUSHAB ACL CONTEXT + 1639 
| 7E 7C QO1A7 CLRQ Ss =('S : 
FDC8 C9 OF OO1A9 PUSHAB ATR_ARGLIST ; 
56 OD 01D PUSHL : 
F788 C9 OF OOTAF PUSHAB OBJECT_TYPE ; 
FAA4 C9 DD 00183 PUSHL CHAN ; 
68 607 FB 001B7 CALLS #7, SYSSCHANGE_ACL : 


S$ZSR Bass ssssex 2g 3 3935 
oo 6&6 Oo Oo oouon7o “oooowouno oo o oovono 
- - -_- - tel ae oe od Sl el cee ee ce --— a mee ee 
a 
o PSPSPS FS FS FSS FS FS FS HS FSS FSS SHS FS FS HSS SSS SSS SHS HSS FSS FS HSS FS SSSR FCS CR CECE HE FE He 
© 
a 
Ne 
J +s 
neu 
m™ 
ow 
se <= « « 
wu w w w 
>u —_- &- Tr « a 
< z2 z= oO 2 
Ne _ a — 
mus oe & . €& oO 
mn a 6.4 ce w a 
wr q qt wr =f oOo 3 ' 
nv w w Nu + vw <c - w 
a ve wow = Se el <= <c-wn w 
_—n <= <«<oac nw t w « <x 
@. « Wn w + t§ oo 
LO . + > Vere o <e- 32a = 
-a ™N -~ & 6&4 6 zu900o 2 2un [24 
—w A - a w «ad ocar- - ww <t A oa ss ww 
‘i381 ww wn YY — wWiw ‘eaqax 4” A FTMHNO —O waa -— 
xO De N ~ 2 te-=z aq | tw = +} WwDNW A “3 ws OZ 
<< +} an a _ @ i eo eee ws - Re a Ne nw — 
> le 8 oOo we aeareresz *'nmdme Ww ODMs OH O 
-—Wn . ._ a wove ed et oS ee oe) | © > | 
“wa N AN ' «aac -~oc vVvAt VY MM DA I MUR CUCU ‘a 
ca + art w ‘ee Oo *s @ tt w2 -o So oo w 
“= WMWeYw CMBws We + wwIMe 83S + eH ss DW + MRR UM «+ 
ow Sue dose t aan batten | aeboukatlakeee ee ~~ 
rw aeMaededte 1 NG Sai Zeveacedad i CTCOVRBevii CZBBVRVee--BeweE GB 
om 
ow ond | = | 2 2 @ 
oo es za @ om waa Tr on r’,) aiJjIn > 
o- +~M @OO34I2™N 4 JIQIINYSBNEIITOTIITIEIIVISGOITIINGsy o6 ws 
So-r- >O3-wicge>3r@ar>r>rradgr>> > > PVvUEVNNMHN US OE>HwH UAwW> >e Oa >e 
Se ees ee ee ee eee eee ea reaaa ce eoead soe eee! 
WT BOO-OYOYXTOS OSSSYOSSSTSTACAAAAVEMVITAQAVVMTEClLOLe 
on 
or 
se 
aa To ove oc oe oe 7 
Noe ae AHA AA Ff A 
mum w wow or oo oOo - 
i | - e- fe --—- NT 
wow 


-—— LOOrr-CONTO Ve — OCW ME WML YUVE- DO -NDOWOMMOwMih-Or-DODOO 
DMOYYVYVVYV OO OOO OW WI & & OD INI NUCUI MIMI MI PIPN AT TUM O 


OOK MVE MT VO - OOW MM LOO OW Vu O14. ODMOOTOOCOMOADOCOsO- Ov 
SUMO — Or OPM O— QAP OK SOUND OAR BOS Ou OWOr OG04uwW-BOO0Sa-3a0 


OPR-OPMO & WA OPR-OOOO LO — —-OOOWO OOO OF- WORK nNOC uu 
VEIARVOVUMVDO AMO VYOR. OMOVOMUR NODOOO@ORX 
w 


MNO VOR 
w 
— 
Oo ~ 
o oO 
we w 
CS — 
~~ “ 
mo 2 
oO 
a 
on 
oOo 


AEDSSETACL 
vO4=000 


ba 


FEO2 


7E 


79 


vwTrw co oom co Ov. 
- - o oot wv Oc 
ve wv wwt Oo ft 
o Oo eee 
Conr—- KOBDOOo aor < 
DWN MDOVUYU wownrw 
oct aouw 
Ovvuwv 
aaa 
Ae kk 
o 
Vv 
o 
oO 
[vs 
— 


007710D4 


C9 


F780 


04 


0D4 
0D4 


-— 
en 
Ld 
oo 


eee 


ao 
OW 


F780 


oon 
oc 


79 
50 


a 


Oo 


609 bytes, Routine Base: $CODE$ + 123A 


Routine Size: 


| F 2 
“Voe=b60 erSepmt9pe 11:50:36 EACLEDT“SReSS 4 Page 3) 


1696 ROUTINE COPY_ACL (OBJECT_NAME_DESC) = 
1698 'e4 

1699 

1700 FUNCTIONAL DESCRIPTION: 


~~“ 
oO 
—_ 


This routine is called to copy the ACL from the specified input object 
to tre peseetee output object. It is also used to delete the ACL of 
a object. 


CALLING SEQUENCE: 
COPY_ACL (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the FAB 


! IMPLICIT INPUTS: 
none 


oooo 
we 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error code otherwise 


SIDE errect>s 
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2 he ACL is copied from one object to another. 

2 on 

2 
: BEGIN 
2 LOCAL 
3 DEVICE_DESC : $BBLOCK CDSC$C_S_BLNI, _ | Device name descr 
4 DEVICE : $BBLOCK puaree 201), ! Device name storage 
5 7 OBJECT_FIB_DESC : $BBLOCK CDSC$C_S_BLNJ ! Object's FIB descr 
6 8 OBJECT_FIB : $BBLOCK CFIBSC-LENGTHS, ! Object’s FIB 
: $3 STATUS; ' Local routine return status 
, $) ! Delete any ACL that currently exists on the object. 
1 Hf ATR_ARGLISTCO, ITMS$W_ITMCOD) = ACLSC_DELETEACL; 

4g 34 2 ATRTARGLISTCO. ITM$WIBUFSIZ) = ACLS$S_DELETEACL; 

74 35 ATR_ARGLIST(CO, ITMSL_BUFADR] = ACE; 

744 P 36 STATUS = SCHANGE_ACL (CHAN = .CHAN 

745 P 1737 JTYP = OBJECT_TYPE 

746 P 1738 OBJNAM = .OBJECT_NAME_DESC, 

747 P 1739 ITMLST = ATR_ARGCIST 

748 40 CONTXT = ACLTCONTEXTS; 

749 41 If NOT .STATUS 

750 4g THEN 

751 4 BEGIN 

752 44 SIGNAL (SET$_WRITEERR, 1, .OBJECT_NAME_DESC, .STATUS, 0); 
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2 
1$-sep-19 
14-Sep-19 


3 gaa SETS_WRITEERR OR STSSM_INHIB_MSG; 


! Now that the input and output objects are open, 


SACL_CONTEXT = 0; 


WHILE 1 
DO 
IN 
ATR_ARGLIST 
ATR_ARGLIST 
ATR-ARGLIST 
STATUS = $CH 


IF NOT .STATUS 


BEGIN 


TMSL~ BUF 


Check for the end of the ACL. 


wn” 
APwYNOOPYPYyS 


Be 9:58:30 


Oi iege3e 
«SRCISETA 


copy the ACL if necessary. 


IF .STATUS EQL SS$_ACLEMPTY OR .STATUS EQL SSS$_NOMOREACE THEN EXITLOOP; 


Not the end, return the error. 


SIGNAL (SETS_READERR, 1, .SOBJECT DESC, .STATUS, 0); 
RETURN SET$_READERR OR $1S$M_INHIB_MSG: 


If possible, copy the ACE to the target object. 


IF NOT .ACECACE$SV_NOPROPAGATE) 
AND CF -FLAGSCQUAL_DEF 


EN .ACECACES 


ELSE NOT .ACECATESV_HIDDEN)) 


HEN 
BEGIN 


ACL_CONTEXT = 1; 


ATR_ARGLIST 
ATR_ARGLIST 
ATR-ARGLIST 
STATUS = SCHANGE_ACL™ (CHAN = 

OBJTYP 


0. 1TM$w 
; 1TM$W 


0, ITMSL 


DIRECTORY] 


BUFSIZ 


“Busia 
“BUF ADR 


Now add the ACE to the object's ACL. 


CHAN 
OBJECT_TYP 


AULTJ 
VY_DEFAULT) OR .FLAGSCOIRECTORY] 


E, 


If this is a default ACE and the target is not a directory file, clear the 
default option in the ACE. 


V4.0-742 
CL.B32;1 


roe 5 


aay 


=" 
fe] 
par 


AYE WN—"OOONOUS WHO 


i a 
000090909 09 00 CD CD CD OD. 
POPIPONUNNS 2 Se 


2.0000 
Nm 


04 


H 2 
16-Sep-1984 00:02:30 AX-11 Bliss=-32 v4.0-74 
12-308- 1382 00:95:30 ACLEDT.SRCISETACL .B32; 
1 09 4 OBJNAM = .OBJECT_NAME_DESC, 
1805 4 ITMLST = ATR_ARGCIST 
1804 4 CONTXT = ACLICONTEXTS; 
1805 4 IF NOT .STATUS 
1806 4 THEN 
180 BEGIN 
1808 SIGNAL (SETS WRITEERR, 1, .OBJECT_NAME_DESC, .STATUS, 0); 
1809 RETURN SETS_QRITEERR OR $1S$M_INHTB_MSG; 
1810 4 END; 
1811 END; 
1el¢ END; 
Iai3 ! Now that the ACL has been copied, return to clean things up. 
1816 RETURN 1; 
181 
1818 1 END; : End of routine COPY_ACL 
003C 00000 COPY_ACL: 
-WORD Save R2,R3,R4,R5 
55 000000006 00 9€ 00002 MOVAB LIBS$SIGNAL, R 
54 000000006 00 9€E 00009 MOVAB SYS$CHANGE_ACL, R4 
53 0000' CF 9E 00010 MOVAB ATR_ARGLIST, R3 
44 AO AE 9E 00015 MOVAB -96TSP), SP 
63 OOO6OOFF 8F 00 00019 MOVL #393471, ATR_ARGLIST 
04 Ad 38 «6 A3 OE 90020 MOVAB ACE, ATR_ARGCIST+4 
FCEO C3 9F 0002 PUSHAB ACL_CONTEXT 
ze 7C 00029 CLRO -(SP) 
53 DD 00028 PUSHL 3 
04 AC ODD 900¢0 PUSHL_ OBJECT_NAME_DESC 
F9CO }§=6—C3—sO9F «00030 PUSHAB OBJECT~TYPE 
FCDC C3 DD 00034 PUSHL CHAN 
64 07 FB 00038 CALLS #7, SYSSCHANGE_ACL 
32 50 DO 00038 MOVL RO, STATUS 
2 52 EB O003E BLBS STATUS, 2$ 
7E 04 00041 CLRL -(SP) 
52 DD 00043 PUSHL STATUS 
04 AC DD 00045 PUSHL OBJECT_NAME_DESC 
01 DD 00048 PUSHL @# 
00771004 8F ODD O004A PUSHL #7803092 
05 FB 9030 CALLS #5, LIBSSIGNAL 
F9BB C3 0 99 ED 0005 CMPZ2V #0, #3, WORST_ERROR, #4 
19 0005A BLSS 1 
OOFS 31 9005¢ BRW 13$ 
00€8 1 OOOSF 1$: BRW 12$ 
AB AS D4 0062 3: CLRL SACL CONTEXT 
63 OOO900FF BF 0 0065 3$: MOVL #590079, ATR_ARGLIST 
06 Ad 38 a3 E 0006C MOVAB ACE, ATR_ARGCISi+4 
AB AS 9F 00071 PUSHAB SACL_CONTEXT 
7E 7C 9074 CLROQ -(SPY 
5 bb 07% PUSHL R3 
FCEC «=(C F 0007 PUSHAB SOBJECT_DESC 
FCES C3 9F O0007C PUSHAB SOBJECT~TYPE 


Page 
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2 
AEDSSETACL rhesé -1984 :02:30 AxX-11 Bliss-32 v4.0-74 Page 67 
rae tt 12-3 08- 1 Oke 90:98:32 FACLEDT-SRe SETACL.B32; . (85 
AG =A3- DD 000 PUSHL SCHAN : 
64 ; F ith CALLS 35" SYSSCHANGE_ACL : 
25 4 $088 BLBS er aros ; + 1763 
000009D0 = BF b 2098 CPL STATUS, #2512 + 1769 
000009E0 BF 52 D1 0009 CMPL STATUS, #2528 : 
0 1 009¢ 4$: BNEQ $ : 
00BA 31 00 H BRW 14$ : 
| 7E 04 OOOA1 5S: CLRL 0s = (SP) + 1773 
52 DD 000A3 PUSHL STATUS : 
| FCEC DD B00A5 PUSHL SOBJECT_DESC : 
1 DD OO0A PUSHL : 
00771084 8F OD OO0AB PUSHL #7803060 ; 
65 05 FB 00081 CALLS 45, L 1BSSIGNAL : 
04 F9BB C3 03 00 ED 90084 cMPzV #0, #3, WORST_ERROR, #4 : 
F9B8 ¢3 10771084 8F DO 000BD MOVL §§ #276238516, WORST_ERROR : 
| 50 10771084 &F BO 000¢6 6$ MOVL 4276238516, RO + 1774 
92 38 AB 03 £0 OO0CE 7$ BBS #3, ACE+3, 3$ + 1779 
0c F9B4 C3 06 £1 000D BBC #6. FLAGS. 8$ : 1780 
10 38 «OAS CEB 00009 BLBS ACE+3, 10$ + 1781 
82 F9BS C3 02 £1 00000 BBC #2, FLAGS+1, 3$ ; 
08 11 000E3 BRB ; 
| 03 38 AB 02 gi OO0ES 8$: BBC #2, ACE+3, 10$ + 1782 
FF78 31 OOOEA 9$: BRW 3 ; 
CE F9BG «C3 06 £1 OO0ED 10$: BBC #6, FLAGS, 11$ : 1789 
OA 38 «ASOD 000F3 BLBC ACE+3, 118 : 1790 
04 F9BS = C3 02 £0 000F7 BBS #2, FLAGS+1, 11$ : 1791 
38 OAS 01 8A OOOFD BICB2 #1. ACE+3 : 1792 
FCEO §86C3 01 CE 00101 11$ MNEGL #1, ACL_CONTEXT : 1796 
02 A3 01 BO 00106 MOVW #1. ATRTARGLIST#2 : 1797 
63 38 A3 9B 0010A MOVZBW ACE, ATR_ARGLIST : 1798 
04 Ad 38 AS O9E 00106 MOVAB ACE, ATR-ARGLIST+4 + 1799 
FCEO C3 OF 0011 PUSHAB ACL. CONTEXT + 1804 
fe 7¢ 00117 CLRQ = (SP) : 
53 DD 00119 PUSHL R3 : 
04 AC DD 0011B PUSHL OBJECT_NAME_DESC : 
F9CO «= C3—s«*OOF:s«OOTIE PUSHAB OBJECT-TYPE ; 
FCDC §=6—C3—séOD 00122 PUSHL CHAN ; 
64 07 FB 00126 CALLS #7, SYSSCHANGE_ACL ; 
52 50 00 00129 MOVL RO. STATUS ; 
BB 52 «£8 01 C BLBS STATUS, 9$ + 1805 
43 D4 O012F CLRL (SP) + 1808 
52 DD 00131 PUSHL STATUS F 
| 04 AC DD 00133 PUSHL OBJECT_NAME_DESC ; 
| or DD 00136 PUSHL : 
00771004 8F OD 00138 PUSHL #7803092 : 
65 05 FB 0013E CALLS #5, LIBSSIGNAL F 
04 F9BB C3 03 00 FD g141 CMP ZV " #3, WORST_ERROR, #4 : 
F9BB C3: 10771004 DO 0014A 12$:  MOVL  #276238548, WORST_ERROR ; 
50 107710D4 5 B0 0153 188: MOVL eet th * RO + 1809 
50 01 DO 0015B 14$: MOVL #1, RO > 1816 
04 0015€ RET : 1818 


sg debris nat well 
i 
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0000 00000 INPUT_ERROR: 


r 


2 
AEDSSETACL 15- AX-11 Bliss-3 
Rivet ek siae ts rit Sa YE eh Cra Pcie 
1 007710A2 BF OD 9 p MOVL #7803042, STATUS 
| 00018292 ? 4 Ag 4 ty ath 7 es asee 
: BNEO 
51 007710a0 er 00 = MOV SROs Sts status 
p 0D 7 ‘ PUSHL 
DD 4 PUSHL Bear 
0000v cf 4 FB 6 CALLS #4, FILE _ennor 
0 1 00 00028 MOVL #1.R 
04 0002€ RET 
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SONNE OOS Sa MOSES Oa NTS OO Oe tS Oa eon ne Oe REARS 
tek aah aul eek ae ae eee 
€0.60.60.60 60.60.20 00.60.60 60.60.00 6D G0. G0 20 GD GD GD GD GD GD GO GD GO GO GD GO. GO GO A. AAA HAHAHAHAHA AA AA AAAAXARPAAAH AD 
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faa00 2 co Sooo. SSSSSS 22 s ROU CURS CUCU CUCU CU CURIE EEN 
SRowane $G05090 5050 DOF PERS RIS SP SAPAPAAP SPA APO PO OOP AO ASP AIAIAD 


LO EEC CEC COOLOLOUOLMEOCU_OL_SCOCL°©Q©OQ CLL OCLC LOC ECO 


OOOO Oe Fee HO Fe FS OSHS FS FOE HS FS FS FS HS FTS FSFE TS FOTOS TR TS TS HS FSFE SS FSe TS FS FSS TSS HS SS SHS lS*S HSCS *S lS sa "S*StS Stara" s 


ee eee 


N 2 
| AEDSSETACL 19-3 Sep 0 AX-11 Bliss-32 V4.0-74 
sso 14-5 gop 71982 00: 96: 32 ACLEDT.SRCISETACL.B32; 
iB 1989 F euset™ 
319 1988 BEGIN 
1/3 1939 19 FILE_N AME CDS SC$W_LENGTH] = #1 ILE_FABCFABSB_FNS]; 
3 1940 1930 FILE? “NAMECDSCSA-POINTER] = FILEL FABLFABSC_FNAJ; 
Ht) a a el 
l3 
ls 1948 19 § SIGNAL toneen 008. 1, FILE_NAME, .STS, .STV); 
; 1945 1935 RETURN 1; 
3 1947 1939 END; ! End of routine FILE_ERROR 
OOFC 00000 FILE_ERROR: 
“WORD Save R2,R3,R4,R5,R6,R7 
| 5E 08 ¢2 00002 SUBL2 , SP 
57 08 AC DO 00005 MOVL FILE FAB, R7 
56 28 A? DO 00009 MOVL 40(R7), 
08 00 6E 00 2c 90009 MOVCS #0, (SP), #0, #8, FILE_NAME 
03 Ab 95 $0018 TSTB =. 3(R6) 
0B 13 00016 BEQL 1$ 
6E 03 Ad 9B 00018 MOVZBW 3(R6), FILE_NAME 
04 AE 04 Ad DO 0001C MOVL  4(R6), FILETNAME+4 
19 11 00021 BRB 3$ 
0B Ab 95 00023 1$: TSTB —s-_:- 11 (RR6) 
0B 13 00026 BEQL 2$ 
6E 0B Abd 9B 00028 MOVZBW 11(R6), FILE_NAME 
04 «AE OC Ad DO 0002C MOVL 12(R6), FILENAME +4 
09 11 00031 BRB 3$ 
6E 34 AZ 9B 00033 28: MOVZBW 52(R7), FILE_NAME 
04 AE 2c =A? «D0 00037 MOVL 44(R7), FILETNAME+4 
7E OC AC 7D 0003C 3$: MOVO STS, (SP) 
08 AE 9F 00040 PUSHAB FILE_NAME 
01 DD 00043 PUSHL #1 
04 AC DD 00045 PUSHL ERROR_CODE 
000000006 00 05 FB 00048 CALL #5, LIBSSIGNAL 
1A 04 AC EB 0004F BLBS ERROR CODE, 
50 04 ac 03 00 EF 00053 EXTZv #0, ’ , ERROR_CODE, RO 
50 0000" CF 03 00 FD 90039 CMP2V #, 8 ; WORSTTERROR, RO 
0B 18 00060 BGEQ 
| 0000° CF 04 AC 10000000 8F C9 00062 BISL3 #268435456, ERROR_CODE, WORST_ERROR 
| 50 01 dO 0006p 4$: MOVL #1, RO 


; Routine Size: 113 bytes, Routine Base: S$CODE$ + 1629 
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AEDSSETACL Bese -1984 00:02:30 AX-11 A 9 iss-32 V4.0-742 Page 73 
7042000 14-Sep-1986 99:08:30 ACLEDT.SRCJSETACL.832;1 . (11) 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 5296 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; “LIBSSTATES 14 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
° SPLITS 876 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, fate od Meg b bf 
H SCODES 5786 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Eames Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 189 1 1000 00:01.9 
“$255$DUA28:(SYSLIBJTPAMAC.L32;1 42 15 35 14 00:00.¢ 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETACL/OBJ=OBJ$:SETACL MSRC$:SETACL/UPDATE=(ENH$: SETACL) 
; Size: 5786 code + 6186 data bytes 
Run Time: 01:37.2 
Elapsed Time: 04:37.6 
Lines/CPU Min: 1197 


Lexemes/CPU-Min: 27511 
panery Used: 578 pages 
Compilation Complete 
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